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1 00 MODULE RSTACCESS (IDENT = 'v04-000') = 
008 BEGIN 
Bae VO RReORER RARE RAAAEAAAAAAEHHARAETER EERE AERA AAAEHAAKEAHAAeEAeAAee 

'@ 

0 5 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
008 '® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
st ” ALL RIGHTS RESERVED. 
0 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
0 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
0 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
0 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
0 '® OTHER PERSON. 
0 'w TRANSFERRED. 


i THE INFORMATION IN THIS SOFTWARE IS SUBJE 
ie AND SHOULD NOT BE CONSTRUED AS A COMM 
ie CORPORATION. 


'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


t TO CHANGE WITHOUT NOTICE 


® 

® 

® 

® 

® 

® 

a 

® 

® 

V D A * 
NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
z 

® 

® 

MENT BY DIGITAL EQUIPMENT * 
et 

ft 

® 

® 

® 

® 
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i WRITTEN BY 
Bert Beander June, 1980. 
i MODULE FUNCTION 
: This module contains most of the syeeel Table Access routines (except 
: for the type routines in module RSTTYPES) that the lLanguage-specific 
: routines call to look up symbols in the Debug Symbol Table and to 
2 extract symbol table information about those symbols. 
7 i MODIFIED BY 
& ° Ping Sager 
9 00 ' Rich Title 
40 004 : Vicki Holt 
* Bee Walter Carrell IJ] 
rk 0068 
rf) er REQUIRE *SRC$:DBGPROLOG.REQ'; 
m4 iS LIBRARY ‘LIB$:DBGGEN.L32'; 
48 HT FORWARD ROUTINE 
49 3 DBGSADDRESS_ STRING Returns ASCII encoding of an address 
8 DBGSBUILD_IAVOC RST Build Invocation Number RST Entry 
¢ DBGS$GET_OOTER_REC_ADDRESS, Get the outer record's start address from the primary 


ointed fo by DBGSGL_CURRENT_PRIMARY 

et the inner record's start address from the primary 
petates to by DBGSGL_CURRENT_PRIMARY 

ee if an address is an entry point 

Handle the SHOW SCOPE command | 

Release all temporary RST entries 


DBGSGET_INNER_REC_ADDRESS, 


DBGSIS_IT_ENTRY 
DBGSRST_SROWSCOPE: NOVALUE, 
DBGSRST-TEMP_RELEASE: NOVALUE, 


a ee ee a 8 a tt 9 9 2 a 4 2s as 4 5 9 3 2 5 2) 2 9 as 4 2 9 2s 5s 2 2 8 2 OD 
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for up-level addressing 
Get a record start address 
Returns SYMID or for register name 
Get regioter values from the current 


GET_RECORD_ADDRESS. 
GET-REGISTER_SYMID 
ET“REGISTER-VALUES: NOVALUE, 


rame 

SCOPE _RULE_COBOL, Select condidete symbol using COBOL 
scope rules 

SCOPE _RULE_NORMAL , Select candidate symbol using ‘‘normal"’ 
scope rules 

SCOPE _RULE_PLI, Select candidate symbol using PL/I 


scope rules 
Error handler for DBGSSTA_SETCONTEXT 
Value Spec stack machine Tnterpreter 
Error handler for DBGSSTA_VALSPEC 
Value Spec scope error routine 
Do routine call on a compiler-supplied 

routine for Value Spec evaluation 
A handler to catch the abnormal 

status for VALSPEC_ROUT_CALL 


SETCONTEXT_ERROR_HANDLER, 
STACK_MACHINE: NOVALUE, 
SPEC_ERROR_HANDLER, 
VALSPEC"SCOPE-ERROR: NOVALUE, 
VALSPEC"ROUT_CALL: NOVALUE, 
VALSPEC_ROUT_CALL_HANDLER; 


rere 


K 1 
RSTACCESS 16-Sep-1984 02:48:17 AX-11 Bliss-32 V4.0-74 Page 
¥O0-000 14-Sep-1984 95:48:36 DEBUG. SROSASTACLESS.03551 ’ 
; 191 14 : which are not locked 
59 136 1 DBGSSTA_ADDRESS_TO_REGDESCR, ' Converts an abgonute address to a 
60 195 1 : Register Descriptor (or zero) 
2! 130 : DBGSSTA_GETSOURCEMOD, Get Module a | pornter to use for 
: source line displa 
6 138 1 DBGSSTA_GETSYMBOL: NOVALUE, ! Convert pathname to a symbol 
64 0197 1 DBGSSTA_GETSYMOFF ' Convert address to tsa and offset 
65 0198 1 DBGSSTA_LINE_NUM RST, i Build a Line Number RST Entry 
66 3h-4 1 DBGSSTA_LOCK"SYMID: NOVALUE, ' Lock an RST entry in RST memory 
67 00 1 DBG$STA_LOOKOP_GBL, ' Look up a symbol in the image's Global 
68 0201 1 ; Symbol Table (the GST) 
i 8 8 : DBGSSTA_NOEVALBIT, See if A da | bit is set ina 
' m value spec. 
71 0204 1 DBGSSTA_NUMBERED SCOPE: NOVALUE, ! Find *hunbered” scope from PC in stack 
7 0205 1 DBGSSTA_RECORD_COMPONENT, ! Returns SYMID of N-th record component 
7 0 Be 1 DBGSSTA_RECORD_ INDEX ' Returns index of a record component 
74 0207 1 DBGSSTA_REGISTER_NAME i Generates print name for a register 
75 0208 1 BGSSTA_SAME_DST-OBJECT i See if two SYMIDs refer to same DST 
76 0209 1 DBGSSTA_SETCONTERT NOVALUE , ' Set up context for value evaluation 
77 0210 1 BGSSTA_SETREGISTERS: NOVALUE, ! Set register values back in save areas 
78 0211 1 DBGSSTA_SYM_IS_LITERAL, ! See if symbol is a literal value 
79 0 i 1 DBGSSTA_SYMRIND: NOVALUE, ! Get a symbol 's kind 
80 0215 1 DBGSSTA_SYMNAME : NOVALUE, ! Get a symbol's name 
Bi 0214 1 DBGSSTA_SYMPARENT, ! Get parent SYMID for a data component 
0215 1 DBGSSTA_SYMPATHNAME: NOVALUE, Get @ symbol’s full pathname 
0 18 1 DBGSSTA_SYMVALUE: NOVALUE, ! Get a symbol’s value or address 
0217 1 DBGSSTA_UNLOCK_SYMID: NOVALUE, ! Unlock an RST entry lock in RST memory 
0 18 1 DBGSSTA_VALSPEC: NOVALUE, ! Evaluate a DST Value Spec 
0219 1 DBGSSTA_VARIANT_SELECT, ! Return variant entry given tag value 
0 $9 1 DBGSSTA_VARIANT_VALUE, ! See if | variable value matches a 
0221 1 ; specified record variant 
0 $§ { DBGSTEST_ROUTINE CALL, ' Routine to be called for testing stack machine routine calls 
0 1 DBGSTRANS_TO_REGNAME , ' Translates address of register 
8 : ! ADD_TO_REF_COUNT: NOVALUE, : Increment or Gecrenent RST entry ref- 
: erence coun 
8s $ 1 CHECK _DUPLICATE, ! Check for duplicate RST Entry 
0 1 EVAL_MAT SPEC: NOVALUE, ' Evaluate a Materialization Spec 
6 8 ! FOLLOW_STATIC_LINK, : Follow static Links through call stack 
0230 1 i 
0231 1 i 
1 i 
; § 1 
9 1 i 
5 1 : 
1 / 
0 $ 1 : 
1 : 
5 | | 
0 1 : 
; 3 ; 
1 / 
$j | 
44 1 } 
5 1 : 
1 : 
1 : 
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RSTACCESS ep-1984 2:48:17 AX-11 Bliss<-32 V4.0-74 Page 
yO4-000 et 95: :26 araUG SACTRSTACLESS 03551 . (23 
; —_—— ROUTINE 
C ' Create a new copy of a memory block 

& NAM ! Get the ASCII name from a DST record 
DBGSGET" MEMORY, 
DBGSGET TEMPMEM, 
DBGSHASA_FIND, 
DBGSHASH_F IND_SETUP:NOVALUE, 
DBGSHASH_ INSERT: NOVALUE 


: Get @ permanent memory block 

' Get a ‘temporary menery block 

! Find a name in the RST hash table 

' Set up calls on HASH_FIND routine 

' Insert an RST entry Tn hash table 

' Look up the PC for a given Line number 
! Copy a primary descriptor 

' Flush current print Line 


DBG$LINE~TO_PC_LOOKUP, 
DBGSNCOPY_DESC 
DBGSNEWLIRE: NOVALUE, 


DBGSNGET RADIX 
DBGSNPATADESC_f0_CS:NOVALUE, 
DBG$PC_TO_LINE_LOOKUP, 
DBGSPRIM_TO_Vv 
DBGSPRINT: ROVALUE, 


' 
' 
' 
' 
' 
' 
' 
' 
1 
i] 
' Returns present radix 
! Generate pathname ASCII string from a 
; pathname descriptor 
' Look up a Line number given a PC addr 
: Convert a primary to a value 
: Print some ASCII text 

DBGSPRINT CONTROL, : Set up print controls 
' 
! 
' 
1 
' 
' 
' 
' 
' 
' 
' 
| 
' 
' 
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65 

6¢ DBGSREL_MEMORY: NOVALUE, ' Release a memory block to memory pool 
6 DBGSRST_BUILD: NOVALUE, ! Build the RST for a specified module 
68 DBGSRST_MOST_RECENT:NOVALUE, ! Mark a module as being the Most 

69 ‘ mecees*y Referenced module 

70 DBGSSEARCH_GLOBAL, ' Tries to symbolize virtual address by 
71 : searching g.obal symbol chain 

7 DBGSSEARCH_SAT, ! Tries to symbolize virtual address by 
7 searching 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

q 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 DBGSSEARCH_VAX_CALL_STACK, ! Tries to syebol ze virtual address by 
1 ; searching through call stack. 

1 DBGSSTA_SYMTYPE : NOVALUE, ! Get TYPE of Data Item 

1 ! Return information about arrays 

1 ! Obtain fcode from SYMID 

: Finds symbols bound to specified vagteters 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


System service for formatting outpu 


DBGSSTA_TYP_ARRAY : NOVALUE, 
DBGSSTA_TYPEFCODE, 

DBGSSYMBOLIZE_REG, ; 
SYSSFAO: ADDRESSING_MODE (ABSOLUTE); ! 


————. 
DBGSF INAL_HANDL, 


DBG$GB_MOD PTR: REF VECTORC BYTE), 


PORN! 
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Call frame exception handler--used 
searching for a numeric scope 

Current mode setting 

The currently SET Language code 


DBGSGB-LANGUAGE: BYTE 


DBG$GB_NO_GLOBALS: BYTE, 
DBGS$GB-VERB: BYTE, 
DBGS$GL~CMND_RADIX 

DBGSGL —CURRENT_PRIMARY 

DBG$GV~ CONTROL ~: DBGSCONTROL FLAGS, 


DBGSRUAFRAME: BLOCK 
DBGSPSEUDO_EXIT, 


DSTSBEGIN_ ADDR, 


DSTSEND_ADDR 
DRUMSMOST_ RECENT, 
RSTSREF_LIST: REF VECTORC,LONG), 


Number of global symbols in the GST 

tiolds command verb 

Radix to use for GRARIME 

Pointer to the primary being processed 

DEBUG control bits 

' The current user run frame 

Point to which CALL ¢ and CALL re- 
turns--used to find numeric scope 

Virtual address where the DST begins 

Virtual address of last byte of DST 

Pointer to the RST entry of the Most 
ecent ty Referenced soguie 

Pointer to List of RST entries refer- 
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9 enced by current Debug command 
0 RSISTEMP_LIST Pointer to Temporary RST Entry 4 st 

1 DBGSREG_DALUES: VECTORC.LONG), Vector of user register values in the 
2 current context 


1 


M 
eaSep-19be 18:18:26 EDeeuG.SmcSastaccess.039,1 = "#8" (5 


ssltsie® 


1 

1 
73 DBGSREG_VECTOR: VECTORC,LONG), ! Vector of ointers to user register 
74 } save locations in current context 
75 RSTSSET_SCOPE ' Set if called from DBGSRST_SETSCOPE 
06 RSTSSTART_ADDR: REF RSTSENTRY, i Pointer to first Module RST Entry 
7 SATSSTART_ADDR, ! Address of first Static Address Table 
8 } ( ) entry on Program SAT chain 
6 SCOPESLIST; ! Pointer to first Scope List entry 
81 OWN 
3g DBGSREG_SCOPE: INITIAL (9) ' Numeric scope for context register 
8 DBGSREG SYMID: INITIAL(O), ' SYMID used to set the current context 

DBGSSCOPE_NUMBER: INITIAL(0); Scope number for current context 


set 
by routine DBGSSTA_SETCONTEXT 


! Field definitions and declaration macro for the ‘candidate block’’ block-vector 
used by DBGSSTA_GETSYMBOL and the SCOPE_RULE_xxx routines. 


FIELD CAND_FLD_DEF = 
SET 


RAVLSSSLESRALLSSELESE 


Ad EAA AAAI AAI AAAI AAAI AWN 
ANA ANIA AI AI AIR POPOPOPPOPINDD 2 2 SS 
SODA MNES WR 2 0 OVO EW SOVOOWVOU SW O OW w 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
0 1 
0 1 
0352 | 
aa 
8 1 CAND_RSTPTR = f », t. }- ! Pointer to symbol’s RST entry 
1 0 1 CAND_PINDEX = {[ 1, L_ ! Pathname vector index + 1 for symbol 
: 0 : TES; 
1 1 LITERAL 
: 3 : CAND_ENTSIZ = 2; ! Longword size of a candidate entry 
g 0 1 MACRO 
5 : CAND_BLOCKVECTOR = BLOCKVECTORC,CAND_ENTSIZ,LONG] FIELD(CAND_FLD_DEF) 2%; 
: 0 1 LITERAL 
2 0 1 Outer = 1, ! Flag value for GET_RECORD_ADDRESS to return the outer reco 
¢4 8 ! Inner = 2; ! Flag value for GET_RECORD_ADDRESS to return the inner reco 
$09 0 1 Ie 
208 6340 1 ! This is a test DST used to test DBGSGET_OUTER_REC_ADDRESS 
209 0341 1 ! and DBGSGET_INNER_REC_ADDRESS. To use if, you use the SUPER 
10 Beg 1 ! DEBUGGER to put the address of the test record in piace of 
11 0 1 ! the address of the record you've asked for in DBGSSTA_VALSPEC. 
i 0 $ : ' Thus, fooling the debugger into using the test record. 
14 $ 1 GLOBAL sie 
15 1 DBGSTEST DST = UPLIT BYTE ( 
16 3 1 DSTSE_vs FOLLOWS, 
1 1 WORD ( ), 
18 50 1 DST$K_VS_ALLOC_DYN, 
19 51 1 DSTSK-MS_BYTADDR, 
0 2g 1 pStSK AS PECK STE, 
1 1 
é 34 I DST$K_STK_PUSHIML 
5 1 LONG (BAGSTEST ROUTINE_CALL), 
4 2$ 1 DSTSK_STK_RINTALL, 
5 4 DST$K"STK“STOP); 


N 1 
RSTACCESS 16-Sep-1984 02:48:17 AX-11 Bliss-32 V4.0-74 Page 
¥O0-000 a aets 1 95:18:26 DEBUG. RCTASTACLESS B35; 1 . 
$ 28 ! GLOBAL ROUTINE DBGSADDRESS_STRING (ADDRESS_DESC) = 
0 1 1 =! FUNCTION 
1 § 7! This routine accepts an address descriptor and converts the contained 
¢ 65 1! virtual address (within the address descriptor). ignoring offset, to a 
66 1! counted ASCII string, the address of which is returned as the routine 
o> Ft value. If the address is in the Debugger's register save area, the 
5 $6 13 corresponding register name is retyrnee in the counted gen | Otherwise, 
1! the address is returned as a numeric string in the proper radix. If a 
7 o8 1! register name is retucged it is preceded t fhe corresponding scope 
3 number, for evenpis "2\2R5' for register R> in the scope two call frames 
9 ? 1} down in the stack. for the top call frame, the scope number is zero. The 
re 4 : scope number is determined by the Last call to DBG STA_SETCONTEXT. 
4 0 18 . | This routine gets the current scope number from the global symbol 
4 0374 1! DBGSREG_SCOPE which set up oY DBGSSTA_SETCONTEXT. It also uses the 
44 0375 1! global Symbols DBG$GB_VERE .which points to the current command being 
45 0 6 9 processed) and DBGSGL_CMND_RADIX (the radix in effct for an EXAMINE\ 
“6 0377 1 command) to determine the appropriate radix to use. 
26 $379 i INPUTS 
49 0380 1! ADDRESS_DESC - A longword containing the address of an address 
$20 ttt : descriptor of a VAX virtual address. 
$26 $384 1 ! OUTPUTS 
5 Beee 1! The address of a counted ASCII string representing the input address 
54 0385 1! is returned as the routine value. 
55 9386 1! 
56 0387 1 
57 0388 BEGIN 
$36 $390 MAP 
360 03 ADDRESS_DESC: REF DBGSADDRESS_DESC; ! Pointer to input address descr. 
$e 03 LOCAL 
26 03 RADIX ! Radix to use for output 
6 03 CONTROL_DESC: BLOCK [8,BYTEJ, ' $FAO control block 
65 FAO_LENGTH: WORD, ' $FAO output Length 
OUTPUT_DESC: BLOCK C8 .Oyre ‘ Output descriptor 


OUTPUT_BUFFER: REF VECTOR t‘eyred; ! Output buffer 
: Check to see if address can be resymbolized to a register. 


if DBGSTRANS_TO_REGNAME (.ADDRESS DESC CDBGSL_ADDRESS_BYTE_ADDR), 
va OUTPUT_BOFFER) 


N ’ 
RETURN ;.OUTPUT_BUFFER; 
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! Register eqsyabe! (zee lon not possible. Check to determine what radix to 
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10 
¢ Hy , use and set up for FAO call. 
; 18 if .DBG$GB_VERB EQL DBGSK_EXAMINE_VERB 
414 THEN 
15 BEGIN 
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2 
18-56 -1984 7:48:17 Ax-11 BLi v4.0-7 Pa 6 
Haat 7 ee fey DEBUG. SRCIRST tactese ogss1 ~<a 
RADIX = .DBGSGL_CMND_RADIX: 
IF “RADIX EQL DBGSK_BEF AULT 
RADIX = DBGSNGET_RADIX(); 
END 
ELSE 
RADIX = DBGSNGET_RADIX(); 


CONTROL_DESC CDSCSA_POINTER] = 
CA SE. RADIX FROM DBGSK REF AULT TO DBGSK_HEX OF 


Octal radix. Edit the address into ASCII octal. 
CDBGSK OCTALJ: 
CONTROL DESC CDSCS$W_LENGTH] = ZCHARCOUNT ("!O0L"); 
it byte E ("!OL") 
Hexadecimal radix. Edit the address into hexadecimal. 
CDBGSK MEX]: 
CONTROL_DESC resteu. LENGTH] = ZCHARCOUNT (°!XL"); 
Ye BYTE ("'xL") 


' Use decimal radix for all other cases. Edit the address into 
decimal ASCII. 


CINRANGE . OUTRANGE): 


N 
UPLIT BYTE (*!U rostew.. LENGTH] = ZCHARCOUNT ('!UL"); 


TES); 


: Get some storage for the string. 
OUTPUT_BUFFER = DBGSGET_TEMPMEM(5); 


Call $FAO to do the formatting. 


OUTPUT_DESC [DSC$W_LENGTH] = (5 * ZUPVAL) - gi 
OUTPUT~DESC [DSCSA~ POINTER] = OUTPUT_BUFFER (2); 
IF NOT"SYS$FAO (CORTR ace sc, 


our TpuT es¢ 
ieee ONDDRESS DESC CDBGSL_ADDRESS_BYTE_ADDR)) 


< 
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3 ¢ at? SDBG_ERROR('RSTACCESS\ADDRESS_STRING'); 

: 344 75 

; «345 447 ! The = is formatted, but we want to insert a leading ‘0° for HEX 
: § 4 } when the first character is A, B, C, D. E, or F. 
; : 0479 IF ;RADIX EQL DBGSK_HEX 

; 350 04 1 BEGIN 

: 2) ee ¢ fF OUTPUT. BUFFER [2] GTR ‘9° 

: 38 484 & BEGIN 

$ 4 485 4 OUTPUT purrs R fia 2 °0*: 

; 355 04 6 4 OUTPUT = .FAO_LENGTH + 1; 

: 28 0487 & RETURN” BUTPUT _BUFFER tOoE 

; 5 0488 ; END; 

s 398 0489 

: 59 0490 END; 

: aef $292 

: 364 oh : Just return what SFAO formatted. 

: 37 0495 $ OUTPUT_BUFFER [1] = .FAO_LENGTH; 

; 365 04 § RETURN OUTPUT BUFFER (13; 

; 366 0497 

s 367 0498 1 END; 


-TITLE RSTACCESS 
IDENT \Vv04-000\ 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


FD 00000 P.AAA: .BYTE <3 
0008 00001 “WORD «17 
12 00 02 01 02 00003 “BYTE 2, 1, 2, 0, 18 
00090000v o009¢ “ADDRESS SBo$ TESTA ROUTINE _CALL 

4C 4F 21 OOOOE P.AAB: ASCII +f his 

4C é 1 00011 P.AAC: ASCII \ixL\ 

4c 1 00014 P.AAD: “ASCII \!UL\ 

52 46 464 41 SC 53 53 45 43 43 41 54 5 é 18 0017 P.AAE: ASCII <24>\RSTACCESS\<92>\ADDRESS_ STRING\ 
47 4— 469 52 54 53 5t 53 53 45 00026 


-PSECT DBGSOWN,NOEXE, PIC,2 
00000000 00000 DBGSREG ett 
00000000 00004 DBGSREG_SYMID: 


ol 
00000000 00008 DBGSSCOPE NUMBER: 
-CONG 0 


DBGSTEST_DST== P, 
-EXTRN DBG$CO 
-EXTRN po eees 


E 
-EXTRN DBGS Y, DBGSGET_TEMPMEM 


Page 
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. LOOKUP 
-EXTRN DBGSNCOPY DESC, DBGSNEW NEWL INE 
EXTRN DBGSNGET RA Aely A DBGSNPATHDESC. TO_CS 
XTRN DBGS$PC_T 10, LIN 
XTRN DBGSPRIM vat 
XTRN DBGEPRINT, “nee PRINT_CONTROL 
nen ORY DBGSRST_BUILD 
XTRN ttattie RECENT 


| 

| 
eEXTRN DBCSSEARCH s5C08 
-EXTRN DBGS$S ARGH SAT *DBGSSEARCH. VAX_CALL_STACK 
“EXTRN DBGSSTA_SYATYPE 
-EXTRN DBGSSTA_TYP ARRAY 
~EXTRN DBGSSTA-TYPEF CODE 
-EXTRN DOBGSSYMBOLIZE_REG 
-EXTRN SYSSFAO, DBGSFINAL 
-EXTRN DBG$GB_MOD P 


"DeeSCe, LANGUAGE 
-EXTRN DBG$ 


to 
-EXTRN DBGS$GB_VERB pacscu CMND_RADIX 
.EXTRN DBGSGL- ~CORRENT P IMARY 

-EXTRN DBGSGV~ CONTROL ¢ POOGSRUNF RAME 
wEXTRN DBGSPSEUD 0_EXI 

-EXTRN DSTSBE PGIN. KDPR, DSTSEND_ADDR 
.EXTRN LRUMSMOST-RECENT 

-EXTRN RSTSREF_LTST, RSTSTEMP_LIST 
“EXTRN DBGSR EG- “batugs™ DBGSREG VECTOR 
.EXTRN RSTSSET SCOPE, RSTSSTART_ADDR 
TEXTRN SATSSTART_ADDR, SCOPESLIST 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


001¢ 00000 .ENTRY DBGSADDRESS_STRING, Save R2,R3,R4 : 0359 
54 00000000" EF 9E 00002 MOVAB PP, RS ; 
SE 18 C2 00009 SUBL2 #24, §P : 

SE 0D 9000¢ PUSHL $P > 0404 
04 BC DD 0000E PUSHL ADDRESS DESC ; 
0000v CF 9¢ FB 00011 CALLS . DBGSTRANS_TO_REGNAME 3 
04 50 €9 00016 BLBC ; 

50 6— AO 9019 MOVL RO: TS cren RO ; 0407 

07 000000006 00 $1 001D 1$: CMPB © DBGSGB_VERB, #7 > 0413 
0C if 0024 BNEQ 2 ; 

53 000000006 99 D 99 6 MOVL § DBGSGL_CMND_RADIX, RADIX > 0416 

01 D1 D CMPL = RADIX, "#1 > 0417 
- 12 000 BNEQ 3 

000000006 0 0 FB 00032 28 CALLS #0, DBGSNGET_RADIX : 0422 
5 50 D0 00039 MOVL RO. RADIX : 

10 AE g B 00 ¢ 38: MOVW #3. CONTROL DESC : 045 
OF 01 CF 0004 CASEL RADIX, #i, # : O42 

9020 9020 00 0 00 0 0044 4$: . WORD -4$,- ; 
nn a es ae : 
0098 8630 0020 $0 0 005¢ $-48.- 


-— — 


aussie 


; Routine Size: 


62 


217 bytes, 


14 
000000006 

08 

oc 


000000006 


000000006 


Routine Base: 


FA 


00028362 


02 


¥F 0064 
5 484 
ie 
DO 00 
3 US 
FB 00079 
dO 50080 
BO sit 
DO B00 7? 
9E 0008A 
DD O008F 
oF 494 
9F 0009 
9F 00098 
FB 000 
ge QOOA 
F QOOA 
DD OO0A8 
DD OOOAA 
FB 00080 
D1 00087 
12 BaneA 
91 000BC 
8 000C0 
90 000C2 
81 000C6 
DO 000CB 
04 QOOCE 
90 OO0CF 
9E 00004 
04 00008 


DBGSCODE + 0000 


9$: 


108: 


AX=11 BLi 
DEBUG. SRC RCSAST 


> RO 
, CONTROL _DESC+4 
, DBGSGET_TEMPMEM 
RO OUTPUT _BUFFER 
#18, ouTPuT 


R2), OUTPUT. DESC +4 
SADORESS DESC™ 
OUTPUT _DESC 


64706 
#3, LIBSSIGNAL 
RADIX, #16 
10$ 
¢iRe). #57 


ie, (R2) 
“i, FAD LENGTH, (R2) 
R2, RO ~ 


FAO_LENGTH, 1(R2) 
1(R2), RO 


Page 


Se Se Se Se Oe Se Se Oe Se Se Se Be Be Be Se Be Be Se Ge Se Be Se Se Se Se Se Fe Se Ge Se Fe Se Se Se Se Se Se Se Se Se Se Se 
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“¥4~000 exgeb-1986 83:18:26 Eoeauc. sacdastaccess 03:1 9 ta) 
| 


; . re ! GLOBAL ROUTINE DBGSBUILD_INVOC_RST(OLDRST, INVOCNUM) = 

3 371 2 1 1 =! FUNCTION 

oe 5 § 1! This routine builds an RST entry with an attached invocation number for 
. 37 82 1! a specified symbol. To do this, it accepts the syeee. s RST ih Le 

3; 374 » os input and creates a new copy of that RST entry. The RSTS$V_INVOC flag 
s 375 b2 a is set in the new copy. It then builds an soveces ten Number RST Entry 
; ore 5 1} to hold the actual invocation number. The RST TF ig vm wth field in the 
; 377 0507 1! new symbol entry is set to point to the Invocation Number RST Entry. 

; 378 R208 1! Both new RST entries are added to the Temporary RST Entry List pointed 
; 379 0509 1! to by RSTSTEMP_LIST. The new symbol RST entry represents this specific 
3 4 3219 : invocation of Ehe new symbol, and its address is returned to the caller. 
; = bag 1 ! INPUTS 

= 0515 1! OLDRST = Pointer to the RST entry of the symbol to which an invocation 
; $e bere ; number should be attached. 

; 386 0516 1! INVOCNUM = The desired invocation number. This is assumed to be applied 
3 63ST 0517 1! to the inner-most invocable entity (routine) in the scope in 
; 388 0518 1! which the OLDRST symbol is declared. 

; 389 0519 1! 

; $39 0520 1 ! OUTPUTS 

; 391 0521 1! A pointer to the new symbol RST entry (which includes the invocation 

; 05 ¢ 1! information) is returned as the routine value. 

; WwW 05 1! 

; 394 0524 1 

; $o0 0525 2 BEGIN 

; 396 0526 § 

s 3597 0527 MAP 

: 398 0528 2 OLDRST: REF RSTSENTRY; ! Pointer to the symbol RST entry 

; 399 B2¢2 $ 

; 400 0530 

; 401 0531 2 RST_SIZE_TBL: ! RST entry size leokows table indexed 
; 40 O3 36 2 VECTORCRSTSK_KIND MAXIMUM + 1, evte3 : y entry kind 

; 40 05 2 PRESET( CRSTSK_INQALID) =U, 

: 404 0534 2 RST$K-NOTUNI QUE) = 0, 

; 405 0535 RST$K_MODUL = 0 

3 406 0536 RST$K-ROUT INE) = RST$K_ROUTENTSIZ. 

3; 407 0537 RST$K_BLOC = RSTSK_LEXENTSIZ, 

; 408 0538 RSTSK_ENTRY = RSTSK_EPTENTSIZ, 

3; 409 0539 RSTS$K_LABE = RSTSK_LBLENTSIZ, 

: 610 0540 RSTSK-LINE = RSTSK-LINENTSIZ, 

3; «6411 0541 RSTSK_DAT = RSTSK_DATENTSIZ, 

: tig B2e§ RSTSK_TYPCOMP) = RSTSK_DATENTSIZ, 

; 41 054 RSTSK-TYPE = 0, 

+ 414 0544 RSTSK-VARIANT) = 0, 

$415 0545 RST$K— INVOCNUM = 

> 416 0546 RST$K "OVERLOAD = 05; 

: 617 54 

; 4618 548 OCAL 

: 619 549 INVPTR: REF RSTSENTRY, ' Pointer to Invocation Number RST Entry 
: 420 0550 NEWRST: REF RSTSENTRY, ! Pointer to new copy of symbol RST 

3; $21 B22) SIZE; ! The size of this RST entry 

; 4 ; 236 

252 b88 

: 625 0555 ! Determine the size and validity of the symbol RST entry. We do not accept 
| 
| 
————E—EEE———————— Se a ee - 


am 


| 
i 


ew SO SE - > Or eee a a 


Gore 


3; 4 5 

: 6 * 228 

; 428 228 

; 429 559 

; 4350 560 

rit $863 

3; 4 § $306 

; 4 0564 

i te O66 

3: 437 bee7 

; 4 0565 

: 439 B28 

3; 440 0570 

: 6461 0571 

; 44 b278 

: 44 057 

3 6646 0574 

3: «445 0575 2 

3; 446 B278 § 

3; 447 057 

; 448 0578 

; 4469 0579 

; 450 0580 

: 451 0581 

s 465 B2e6 

; 45 058 

3; 456 0584 

; «6455 0585 

3; 456 0586 

; 457 0587 

: 458 0588 

; 459 0589 

; 460 0590 

; 461 0591 

: 46 Bee 

; 46 059 

: 464 0594 

: 465 0595 

: 466 0396 

: 467 059 

; 468 0598 

; 469 599 

; 670 00 

: «471 0601 

: 67 8 

: 67 0 

; 4676 

: 675 0605 1 

24 467 62 66 SC 53 $3 
53 $3 SF 43 4F 56 


(aoe 


é 
1B-seo-1986 2:48:17 yaKett g 


Module, Type, or Variant RST entries. 


Sasta 


SIZE = 0; 
IF (.OLDRSTCRSTSB_KIND] GEQ RSTSK_KIND_MINIMUM) AND 
* (,OLDRSTCRST$B-KINDJ LEQ RSTSK-KIND-MAXIMUM) 


SIZE = .RST_SIZE_TBLC.OLDRSTCRSTS$B_KINDJ); 
IF .SIZE EQL 0 THEN SDBG_ERROR('RSTACCESS\DBGSBUILD_INVOC_RST"); 
! Copy the symbol"s RST entry (the ‘old’ RST entry) into a new memor 
! block (the ‘‘new’’ RST entry). Note that we copy the whole memory block 
! $0 that any embedded DST entry is copied also. Then fill in all fields 
in the new entry that must be different from those in the old entry. 
NEWRST = DEGSCOPY MEMORY OLDRST); 
NEWRSTCRSTS$L_HASH BL IK =z Q; 
IF .OLDRSTCRSTSL_BSTPTR) EQL (.OLDRST + 4*.SIZE) 

NEWRSTCRSTSL_DSTPTR) = .NEWRST + 4*.SIZE; 


NEWRSTCRSTSW_REFCOUNT) = 0; 


Put the new symbol entry on the Temporary RST Entry List. 


NEWRSTCRSTSL_HASH_FLINK] = .RSTSTEMP_LIST; 
RSTSTEMP_LIST = .NEWRST; 


! Now build the Invocation Number RST Entry to go with the new symbol entry. 


Also put it on the Temporary RST Entry List. 


INVPTR = DBGSGET_MEMORY(RSTSK_INVENTSIZ); 
INVPTRCRSTSL_UPSCOPEPTR)] = .OCORST; 

RST$B_KIND) = RSTSK_INVOCNUM; 
L-INVOCNUM) = .TNVOCNUM; 
INVPTRCRSTSL_HASH_FLINK] = .RSTSTEMP_LIST; 
RSTSTEMP_LIST = .INVPTR; 


! Finally put a Link in the symbol's new RST entry which points to the 

: Invocation Number RST Entry. Then return the address of the new entry. 
NEWRSTCRSTSL_SYMCHNPTR) = .INVPTR; 

NEWRSTCRST$SV_INVOCNUM) = TRUE; 

RETURN .NEWRST; 


END; 


-PSECT DBGSPLIT,NOWRT, SHR, 


ow 
ww 


2 1B 00030 P.AAF: ASCII <29>\RSTACCESS\<92>\DBGSBUILD, INVOC_RS\ 
42 0003F 


2 
16-Sep-1984 02:48:17 AX-11 Bliss-32 V4.0-74 
1 op-1o8e 9374 726 DEBUG. SRESASTACCESS .09551 


54 00040 eASCIIT NTN 
-PSECT DBGSOWN,NOEXE, PIC,2 
00 00 00 07 00 OB 00 O07 08 O07 08 OB 00 00 0000C RST SIZE TM 


-$ 
-$ 


0, 0, 11, 8 7, 8, 7, 0, 11, 0, 7, 0, 0, 0 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


003¢ 999 .ENTRY DBGSBUILD_INVOC_RST, Save R2,R3,R4,R5 
$5 000000006 99 E MOVAB RSTSTEMP_CIST, R5 
D4 0000 CLRL SIZE 
54 04 AC DO 00008 MOVL 9 DRST, R4 
50 16 Ab 9A OO00F MOVZBL 20(R4). RO 
0D 50 91 00013 CMPB RO, #18 
08 1A 0016 BGTRU 1$ 
53 00000000°EF40 9A 0001 MOVZBL RST_SIZE_TBLCROJ, SIZE 
53 D5 00020 1$: TSTL SIZE 
15 12 00022 BNEQ  =o2$ 
00000000" EF 9F 990 4 PUSHAB P.AAF 
1 DD 0002A PUSHL 
00028362 8F DD 0002C PUSHL #164706 
000000006 00 3 FB 000 é CALLS #3, LIBSSIGNAL 
4 Dd 0039 2$: PUSHL 4 
000000006 00 01 FB 00 CALLS #1, DBGSCOPY_MEMORY 
52 50 D 0042 MOVL RO. NEWRST 
04 Ag D4 0004 CLRL 4 (NEWRST) 
50 6443 DE 00048 MOVAL  (R4)CSIZEJ, RO 
50 0c AS D1 0004C CMPL 12(R4), RO 
05 12 90059 BNEQ  3$ 
OC A2 6243 DE 0005¢ MOVAL (NEWRST)CSIZEJ, 12(NEWRST) 
16 ag B4 00057 3$ CLRW 22 (NEWRST) 
t 65 DO 0005A MOVL RSTSTEMP_LIST, (NEWRST) 
6 32 DO 0005D MOVL NEWRST, RSTSTEMP_LIST 
07 DD 0006 PUSHL @# 
000000006 00 1 FB 006 CALLS #1, DBGSGET_MEMORY 
10 Ao 4 pO 0006 MOVL 4 VGCINVPTR) 
14 AO 0c 90 000 MOVB #12, 20CINVPTR) 
18 AO 08 ac D0 00071 MOVL INVOCNUM, 24(INVPTR) 
60 $3 DO 00076 MOVL RSTSTEMP LIST, (INVPTR) 
65 0 10 00079 MOVL INVPTR, RSTSTEMP LIST 
08 A 0 p 907 MOVL INVPTR. 8(NEWRST 
1 A 4 BISB2 #4, 21(NEWRST) 
5 2 00 00084 MOVL NEWRST, RO 
04 00087 RET 


; Routine Size: 136 bytes, Routine Base: DBGSCODE + 0009 


VAMVIF VWI 
FESS Seas 


oooo no 
PWN" 
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yOu 000 1 ~3007 138% at ey Pree. RRC TASTACLESS  o8os1 * (5) 
: ras 606 ! GLOBAL ROUTINE DBGSGET_INNER_REC_ADDRESS( Primptr ) = 
: 479 08 1 ' FUNCTION 
; 480 09 1! DBGSGET_INNER_REC_ADDRESS returns the address of the inner record 
; 481 i? 1! based on the primary pointer peqees. 
; 6 ¢ 61 1! It's called from the stack machine when the value of a record's field 
: Z ois : depends on the contents of the record. 
> 485 614 1 ' INPUTS 
3 ? oF : Primptr - A pointer to a primary descriptor passed by value. 
: 48 i$ 1‘ ouTPuTS 
: ret \% : The address of the inner record. 
: 491 0620 1 ' SIDE EFFECTS 
; he 86 1 ! Errors may be signaled 
; 494 06 : "BEGIN 
; 4495 0624 
; rs | +4 5 RETURN GET_RECORD_ADDRESS( .Primptr, Inner ); 
: 498 0697 END; 
0000 00000 .ENTRY DBGSGET_INNER_REC_ADDRESS, Save nothing ; 0606 
02 0D 00002 PUSHL 4&2 3 0625 
04 AC DD 00004 PUSHL PRIMPTR : 
0000v CF 02 FB 00007 CALLS #2, GET_RECORD_ADDRESS ; 
04 0000C RET : 0627 


; Routine Size: 13 bytes, Routine Base: DBGSCODE + 0161 


—— 


RSTACeESS yboseortgee 2:48:17 yanety BLigsct2 ve.00763 | 


; : : ! GLOBAL ROUTINE DBGSGET_OUTER_REC_ADDRESS( Primptr ) = 
; ¢ 6 1 ! FUNCTION 
3 631 1! poseer! OUTER aREC ADDRESS returns the address of the outer record 
; 504 § 1! pered on the primary pointer passe sed. 
; 05 6 7% s called from the stack machine when the value of a record's field 
: 6] 634 1! Reomote on the contents of the record. 
; 2 635 1! 
; 508 6 $ 1 ! INPUTS 
s 444 $e : Primptr - A pointer to a primary descriptor passed by value. 
s $11 § 1 ! OUTPUTS 
: \¢ 640 1! The address of the outer record. 
: 1 641 1! 
3 a\8 Reeg 1 ! SIDE EFFECTS 
; 515 45 1! Errors may be signaled 
s S16 44 1! 
s SI 0645 BEGIN 
; 518 +08] 
3; $19 064 RETURN GET_RECORD_ADDRESS( .Primptr, Outer ); 
: 259 0648 
s Sei 0649 1 END; 
one 0000 eENTRY bOGSGET OUTER_REC_ADDRESS, Save nothing 
° D S002 PUSHL 
04 PUSHL PRIM 
0000v CF 05 rb ie dd a #2, GET -RECORD_ADDRESS 


; Routine Size: 13 bytes, Routine Base: DBGSCODE + 016E 


K 2 
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| Yoon 19-808=1 382 et ey OEBUG.ERCSASTACCESS 03951 aa (7) 
; ? $ 9 ! GLOBAL ROUTINE DBGSIS_IT_ENTRY(ADDR) = 
: 525 6 g 1! FUNCTION 
os a § 6 ,} This routine decides whether a given virtual address in the user program 
3 654 1! is the address of a CALL entry mask. It returns TRUE if the given ad- 
3 8 22? 1! dress is the start address of a routine or entry point callable with the 
3 4 028 : CALLS and CALLG instructions. It returns FALSE in all other cases. 
: 531 638 1! This routine is called in the processing of breakpoints because if a 
. 3 ¢ 0659 1! breakpoint is set on a CALL routine (as opposed to a JSB routine or an 
3 0660 1! ordinary code location), the BPT instruction must be placed two bytes 
3 661 1! past the routine address so it falls on the first instruction instead 
; 5 re : of the entry mask. 
3; 5 0664 1 | INPUTS 
; 538 65 1! ADDR - The input address. This routine will determine whether this 
$ 4 066 ' } address points to an entry mask or not. 
: 34 0668 1 | OUTPUTS 
3 248 0669 1! The routine returns TRUE if ADDR is the address of an entry mask, i.e. 
; 54 0670 1! is the address of a CALLS or CALLG routine or entry point. 
3: 5446 0671 1! The routine returns FALSE otherwise. 
; 545 0672 1! 
; 546 06735 1 
: 547 0674 BEGIN 
: 306 bere LOCAL 
: 550 067 DSTPTR: REF DSTSRECORD, !' Pointer to Routine Begin DST Record 
3; 551 0678 GSTPTR: REF RSTSENTRY ' Pointer to Global Symbol Table record 
; 23¢ 0679 MODRSTPTR: REF RSTSENTRY i Pointer to current Module RST Entry 
; 55 0680 PROG_SATPTR: REF SATSENTRY, i Pointer to Program SAT entry 
; 5546 0681 RSTPTR: REF RSTSENTRY, ' Pointer to current RST entry 
3 322 bos SATPTR: REF SATSENTRY; ! Pointer to SAT entry for a symbol 
. i: 
; 559 0686 ! Search through the Program Static Address Table. Here we are looking for 
3 eo9 074 a module which covers the ADDR address. 
; 36¢ 689 PROG_SATPTR = .SATSSTART_ADDR; 
3 0690 WHILE .PROG_SATPTR NEQ 0~DO 
; 26% 91 BEGIN 
; 5 4 
: 268 94 ! If the current Static Address Table entry is past the address we are 
; 208 95 ‘ ges tng for (has a higher start address), we exit the search loop 
3 9 38 ' withou iy Po a suitable SAT entry. This works because the Static 
: 371 , } Address Table is sorted on the start address. 
; sf 3 IF .PROG_SATPTR[SATSL_START] GTRA .ADDR THEN EXITLOOP; 
: 57% 701 
s 37S 7 § ! If ADDR is in the range of this SAT entry, we 9° to the corresponding 
; 37 A ? : Module RST Entry and search that module's Static Address Table. 
: 578 705 IF .PROG_SATPTRCSATSL_END] GEQA .ADDR 
; 579 7 THEN 


(a 


2 
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if BEGIN 


! Loop through this module's SAT looking for a symbol whose address 
! matches the desired ADDR address. If we find such a symbol, we 
see if it is an entry point. 


MODRSTPTR = .PROG_SATPTRISATSL_RSTPTRI; 
SATPTR = .MODRSTPTRCRSTSL_SAT_ PTR); 
WHILE .SATPTR NEQ 0 DO 


Bow 


If this SAT entry is past the desired address, exit this 
! Loop=--there is no symbol for the address in this module. 
(Again, this Static Address Table is sorted on start address.) 


F .SATPTRCSATSL_START] GTRA .ADDR THEN EXITLOOP; 


SSLESLANLESE 


' 
i 
; 
: 
I 


If this SAT entty has exactly the start address we want, we 
return TRUE if the corresponding symbol is a CALL routine, 
an entry point, or “entry mask’’ data type. 


i] 
i 
' 
iF .SATPTRCSATSL_START] EQLA .ADDR 
THEN 


BEGIN 
RSTPTR = .SATPTRCSATSL_RSTPTRI; 

Check for a CALL routine. 

LF RSTPTRERSTSB_KINDJ EQL RST$K_ROUTINE 


SNS SSS SS SSS 


BEEBE EEE & FANN AAWIWIWIIDIPINIPININPININID 2 2 OOO SS HM OOOO 


CoS See wo Rut oe NOUS UN 0 OD NOUN EWN $9 OODNOU EWN SO CONOU EW O0OOn~ 


BEGIN 
DSTPTR = sRoterRCRstst DSTPTR): 
IF (.DSTPTRCOST$B_TYPET EQL DSTSK_RTNBEG) AND 
“ cwot -DSTPTRCDSTSV_RTNBEG_NO_CALLJ) 
RETURN TRUE; 
END; 
Check for an entry point. 


iF .RSTPTRCRST$B_KIND) EQL RSTSK_ENTRY THEN RETURN TRUE; 


POPPIN — —* tt tt 


aun SS Soo On US “OOO VWOufwun—oO 


!' Check for data of type ZEM | mask). This arises 

' if rout ines are passed as parameters to other routines. 
' This s cust ton aiso arises when routine names are 

! imported in PASCAL from environment files. 


' 
' 
! 
' 
' 
1 RSTPTRCRSTSB_KIND] EQL RSTSK_DATA 


PUPP APAAMAMIN 


* 
HEN 
STPTRCRSTSL_DSTPIR): 

DSTSB_TYPEJ~EQL DSC$k_DTYPE_ZEm 


SNAPP AAA AAA AAA AD SIN SNP DP DP PP DPD. DDSI LB BE EE 


Se Se Be Be Se Be Oe Se Oe Se Be Ge Se Se Se Se Se Se Se Ge Se Ge Se Se Ge Fe Ge Fe Se Se Se Ge Se Ge Se Ge BH Se Se Ge Ss Ge Se FH Se Se Se Se Ge Se Geese ee Se Se Gee 
o 
3 
SOOOOOCOOOSOCOCOOCOOSOOCSOOOSCOOSOSOOOSOSOOSCO OOOO OCOOOOO OOOO OOOOOOOOOOO 


PAPPSAAAAAAAASAAAAAAOAAOAAAAAO 
SSNS NNN NNN 


Onom 


| 


err 


: 637 764 7 
; e38 765 

: 828 res 

> 641 768 

3 ak 8 

; 64 770 

: 644 771 

> 645 17 i 
3 o*8 773 4 
: a8 175 
Be 
2 OR 
fe OgB 

: 655 0788 

; 656 078 

: 657 0784 
Bo OR 

: 660 b789 

: 661 0788 

3 666 0789 

: 66 0790 

> 664 9791 

: 665 798 

> 666 079 

; OCF $798 

: 669 0796 

> 670 079 

3; 671 798 

: 672 0799 

; Br itd 

: 675 O80 

i Bf8 Spot 
: OmS 3 3 
i oR 3 
i? i 

; i 

; 14 

: 8 i 

: 6 i 

: 691 18 

; 69 1 

; 69 20 


-—_—_———— 


M 2 
16-Sep-1984 2:48:17 AxX-11 Bliss- 
14 ety fi eet ey DEBUG. SRCIRS 
RETURN TRUE; 
END; 
END; 


Loop for the next symbol SAT entry in this module. 
SATPTR = ,SATPTRCSATSL_FLINK); 


END; ! End of IF for ADDR in SAT entry range 
! Address not found in this module--loop for the next Program Static 
Address Table entry. 
PROG, SATPTR = .PROG_SATPTRISATSL_FLINK); 


! A CALL routine or entry point sy ol for the address could not be found 

! anywhere in the Static Address Table or in any SET module. We therefore 
! have to search the Global Symbol Table to see if a symtol for the address 
is declared there. 


GSTPTR = .RSTSSTART_ADDR; 
WHILE TRUE DO 
BEGIN 


Get a pointer to the next GST entry. Exit loop if there are no more. 
if .GSTPTR EQL O THEN EXITLOOP; 

! If this is a Routine or Entry GST Record for the exact address we 

are looking for, return TRUE == the address is an entry point. 

IF ;,OSTPTRERSTSB_KIND] EQL RSTSK_ROUTINE 


BEGIN : 
fe SS IP ERAS TRL, SIAR TAGOR EQLA .ADDR THEN RETURN TRUE; 


} Get next GST entry by following the RST symbol chain pointer. 
GSTPTR = ,GSTPTRCRSTSL_SYMCHNPTR); 


! we did not find an entry or procedure definition for the address in the 
: GST either. It is thus not an entry point and we return FALSE. 


RETURN FALSE; 
END; 
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V4.0-74 
clE8e 639; 1 


DBG$IS_IT_ENTRY, Save R2,R3,R4,R5 
SATSSTART-ADDR, PROG_SATPTR 


ADDR, R 
PROG. SATPTR 

4(PROG_SATPTR), R4 
PROG_SATPTR), R4 


(PROG_SATPTR), MODRSTPTR 
(MODRSTPTR), SATPTR 


SATPTR), R4 
ATPTR), R 
STPTR), #2 


Ss 

R 

RSTPTR), DSTPTR 
STPTR), #190 


DSTPTR) 
(RSTPTR), #8 
(RSTPTR), #6 


RSTPTR), edn 
STPTR), # 


ATPTR), SATPTR 
ROG_SATPTR), PROG_SATPTR 
TSSTART_ADDR, GSTPTR 
GSTPTR), #2 

(GSTPTR), R4 


STPTR 


PA~MVRKONMEKHEKR—RKEMOE-— OH 
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Da 
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GSTPTR), GSTPTR 


DNS BOON DH AND = LNW DONIW S?W S@ FNS UP Oa S S 
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oP ~ —RFRKHOOU SKVSHYVEF-NVCOKCOH— 
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3 $93 8 1 } GLOBAL ROUTINE DBGSRST_SHOWSCOPE: NOVALUE = 
3 $39 8 : 1 ! FUNCTION 
; 698 61! This routine does most of the work of ont ae the SHOW SCOPE command. 
3 $9? 0825 1! It goes through the internal Scope List, and for each scope entry it 
: pp0 O8 § : } prints out the corresponding scope name. 
; 70 . 8 1 ! INPUTS 
; re 0 1! NONE 
; 704 0830 1! 
; 705 0831 1 ! OUTPUTS 
is rhe 8 ¢ 1 3 The SHOW SCOPE response (i.e., ‘scope: scope-list’’) is printed out. 
; 70 1 ! No value is returned. 
; 708 0834 1! 
; 709 0835 1 
; 710 08 $ BEGIN 
: 711 08 
3 ne 0838 LOCAL 
: 71 0839 INVOCNUM ' Invocation number for numeric scope 
13; 714 0840 MODRSTPTR, ! Return parameter not actually used 
3 715 0841 PATHNAME ! Pointer to Pathname Descriptor 
: 716 084 PATH_STRING, i Pointer to pathname counted string 
3 717 084 RSTPTR, ! Pointer to scope RST — 
3 me Oecd SCOPE: REF SCOPESENTRY; ' Pointer to current scope list entry 
3 730 084 
RR ey 084 
: 166 0848 ! Print the initial ‘‘scope: "' text. 
s fe 0849 ' 
: 726 0850 DBGSPRINT(UPLIT BYTE(ZASCIC ‘scope: '), 0); 
eee fe) 0851 
: 726 083g ; : 
s Var 085 ! Loop through all the Scope List entries until we find the all-set-modules 
; ree Baee scope. For each scope, print out the scope name. 
3 +86 0856 SCOPE = .SCOPESLIST; 
; 731 0857 WHILE .SCOPECSCOPESL_STATE] NEQ SCOPESK_SETMODS DO 
s 7 ; 0858 BEGIN 
3; 67 0859 
cz 0860 , 
: g 5 pee) Print the comma between scope entries. 
3 4 7 bBc8 If .SCOPE NEQ .SCOPESLIST 
; 44 086s DBGSPRINT(UPLIT BYTE(ZASCIC *, "), 0); 
> 741 Oss? 
(3 * 0 8 ; Now do a CASE on the kind of Scope List entry this is. 
; oe 0870 ARE, , FOPECSCOPER, STAtE 2 FROM SCOPESK_NORMAL TO SCOPESK_SETMODS OF 
- i 
; 7648 74 ' Handle normal scopes as set with the SET SCOPE command. Convert 
; 749 75 ! the scope to a Pathname Descriptor; then convert that to a counted 
; 730 oBre ASCII string and print that string. 
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3 
1b-sep-19 4 02:48:17 AX-11 BL $-32 V4.0-74 Page 20 
aoe 7 et fey DEBUG. SRCIR SsFactegs 035.1 . BS 
CSCOPESK NORMAL]: 
DBGSSTA Syene Temas) SLOPE Scores RSTPTR], PATHNAME); 
DBGSNPATHDESC TO CS(.PATHNAME , ATR, STRINGS; 
CeetEaSciC’ 'AC'),~ PATH. STRING) ; 


DEGRPRINTCUPLTT E 


Handle ‘‘numbered’’ scopes, i.e. scopes relative to the current top 
of the call stack. Here we first print the number itself and then 
the actual scope this corresponds to at present. 
SCOPESK_NUMBERED): 
BEG! 


DBGSPRINT(UPLIT BYTE(ZASCIC "!SL") s SCOPECSCOPESL _MODPTR]); 
DBG$STA_NUMBERED_SCOPE(. Scop ECSCOPESL DPTRI, 


STPIR. INVOCNUM) ; 
IF .RSTPTR NEQ 0 
THEN 


a tt 


BEGIN 
IF .INVOCNUM NEQ 0 

RSTPTR = DBGSBUILD_INVOC_RST(.RSTPTR, .INVOCNUM) ; 
DBGSSTA Akh ges bp 5 haha PATHNAME ) 


DBGSNPATHDESC_TO CS(. ATHNAME , PATH STRIN NG); 
DBGEPRINTCUPLTT Ontieizascie “C = 'KC J"), .PATH_STRING); 


Handle the Global scope. This is done by simply printing ‘'\"’. 


CSCOPESK_ GLOBAL): 
DBGSPRINT (UPLIT BYTEC(ZASCIC *\"), 0); 


' Handle the all SET modules scope. Since we should never get here, 
we just signal an error. 


CSCOPESK_ SETMODS): 
SDBG_ERROR( *RSTACCESS\SHOWSCOPE '); 


TES; 


: Link on to the next Scope List entry and loop for the next scope. 
SCOPE = ,SCOPECSCOPESL_FLINK); 


: We are all done. Flush the output buffer and return. 
DBGSNEWL INE (); 
RETURN; 
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5D 20 43 41 
Ss 33 SX $3 53 


END; 
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21 20 3D 20 5B 20 pA 4 P.AAK: 

C 01 O6C P.AAL: 

45 43 43 41 54 53 ¢ iH OO6E P.AAM: 
45 50 4F 43 53 0007D 


007A 


oors 00000 


56 00000000G 00 9E 00002 

55 000000006 00 9€E 00009 

54 000000006 00 9E 00010 

53 00000000° EF 5 00017 

SE 14 C2 OOOIE 

44 D4 eed 

53 DD 00023 

64 Og FB 00025 

52 65 D0 00028 
04 04 Ag D1 00028 1$: 

03 12 0002F 

00A4 31 00031 
65 52 D1 00034 2%: 

08 13 BR8 7 

7E 04 00039 

08 A3 99F 00038 

64 0¢ FB OOO3E 
01 04 A2 CF 00041 3$: 
0024 0008 00046 4$: 
Oc AE OF O04E 5$: 

08 Ad DD 0005 

0000v CF 02 FB it 

10 AE 9F 00059 

10 AE OD itt 

66 02 FB O0005SF 

10 A po Onee 

0B OA f One 

51 11 68 
OC A2 OD BROA 6$: 

OF AS OF $0 

64 9 FB 3 
E 44 7 
08 AE 9F 0007 
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AX-11 Ot ieee V4.0-74 
SRCIRSTACCESS .B32;1 


DBGSPLIT,NOWRT, 


<7>\scope: \ 
<2>\, \ 

<3>\fAC\ 
<3>\'SLNV 

<10>\ C = !AC JN 


<1><92> 
<19>\RSTACCESS\<92>\SHOWSCOPE\ 


SHR, PIC,0 


DBGSCODE,NOWRT, SHR, PIC,O 
DBGSRST_SHOWSCOPE, Save R2,R3,R4,R5,R6 
DBGSNPATHDESC_TO_CS, R6 

SCOPESLIST, RS 

DEGSPRINT., “R4 


8g 


BGSPRINT 
$LIST, SCOPE 
PE), #4 


oO 
ome 


§ 
COPE, SCOPESLIST 
=(SP) 
P.AAH 

#2, DBGSPRINT 
4(SCOPE), i, #3 


6$-4$,- 
$ 


NAM 
8( SCOPE) 
#2, DBGSSTA_SYMPATHNAME 
PATH STRING 
PATHRAME 
#2, DBGSNPATHDESC_TO_CS 
PATH STRING 
P. AAT 
9$ 
12(SCOPE) 

AAJ 
#2, DBGSPRINT 


RSTPTR 


roe 


0821 


to 


3 
“RSTACKESS yErsep-19R 02:48:17 YARE1T BLiggcB2 va On742 Page 2 


g 
| 
i 
| 10 AE 9F 00078 PUSHAB MODRSTPTR ; 
| oc Ae 0D 78 PUSH 12(SCOPE) s 
0000v CF 04 F 3 CALLS #4, DBGSSTA_NUMBERED_SCOPE : 
| 04 AE D TSTL RSTPTR : 0895 
4A 1 BEQL 118 : 
| E OD TSTL JNVOCNUM : 0898 
eS O8A BEQL $ 3 
6— 0D C PUSHL INVOCNUM : 0900 
08 AE DD ‘ PUSHL RST : 
FE3D—sCF Q FB 9 CALLS * DEGSBUILD. INVOC_RST : 
06 «AE p 096 MOVL H RSTP : 
OC AE OOF O9A 7$: PUSHAB Patimane : 0902 
08 AE DD 0009 PUSHL i : 
0000v CF 02 FB OAQ CALLS @ yPBGSSTA. SYMPATHNAME : 
10 AE 9F OOOA PUSHAB : 0903 
10 AE DD 000A8 PUSHL fast AME 3 
66 02 FB OOOAB CALLS ay DBGSNPATHDESC. TO_CS : 
19 AE 0D O00AE PUSHL PATH STRING + 0904 
1 AS 9F 00081 PUSHAB P.A AAR 3 
05 11 00084 BRB 9$ : 
7E 04 00086 8$: CLRL = = (SP) + 0913 
1E AS OOF 90088 PUSHAB P.AAL ; 
64 02 FB 000B8B 9S: CALLS #2, DBGSPRINT : 
12 11 0008E BRB 116 : 
20 Ad 9F O00CO 10S: PUSHAB P.AAM : 0920 
01 pd 000C PUSHL ; 
00028362 8F dD 000Cc5 PUSHL #164706 ; 
000000006 00 03 FB 000CB CALLS #3, LIBSSIGNAL : 
52 6¢ bo 000D2 11$: MOVL (SCOPE), SCOPE : 0927 
FFS 1 000D BRW 1$ : 0857 
000000006 00 00 FB 000D8 128: CALLS #0, DBGSNEWLINE : 0933 
04 000DF RET ; 09 


; Routine Size: 224 bytes, Routine Base: DBGSCODE + 0206 
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RSTACCESS 16-Sep-1984 02:48:17 AX-11 Bliss-32 V4.0-74 
180-500 10280871382 eet fee DEBUG. SACIRSTACLESS 085; 1 
3 1 338 } GLOBAL ROUTINE DBGSRST_TEMP_RELEASE: NOVALUE = 

3; «6814 9 § 1 ! FUNCTION 

; «4815 940 1! This routine releases all ‘‘temporary’’ RST entries back to the DEBUG 

: 1 941 1! gonery pool. ‘Temporary’ RST entries are RST entries which are created 

; 81 942 1! dynamically soy the execution of a DEBUG command. These include 

3 sis 945 1! Data RST Entries for record components, RST entries for objects with 

s BT 0944 1! invocation numbers, Line Number RST Entries, and most Data Type RST 

; 820 0945 1 Entries. RST entries which are created by the SET MODULE command or 

3 Ss) Bee : during DEBUG initialization are not temporary RST entries. 

; 8 : 0348 7? When a temporary RST entry is created, it is not put on the module's 

> 8246 949 1! symbol chain or entered in the RST Hash Table. Instead, it is added 

; 825 0950 1! to the singly Linked List pointed to by RSTSTEMP_LIST. This routine 

; 826 0951 1! is called at the end of every command to go through that List and to 

; 827 0952 1! release every RST entry with a zero reference count to the DEBUG mem- 

; 828 09553 1! ory pool. An entry with a non-zero reference count cannot be released 

; S¢° 0954 1! since — references that entry; the current location pseudo- 

; 830 0955 1! synbol may be bound to a Primary Descriptor which in turn points to 

s 851 0956 1! that RST entry, for example. 

; S36 0957 1! 

5 83 0958 1! INPUTS 

; 834 0959 1! NONE 

; 835 0960 1! 

; 836 0961 1 ! OUTPUTS 

; 837 0962 1! NON 

; 838 0965 1! 

; 839 0964 1 

: 840 0965 § BEGIN 

s 96) 0966 

3 aes 0967 2 LOCAL 

; «84 0968 2 OLDPTR: REF RSTSENTRY, ' Pointer to the previous RST entry in 

> 844 0969 2 : temporary RST entry list 

; 845 0970 2 RSTPTR: REF RSTSENTRY; ! Pointer to the current RST entry in 

; 846 0971 ' the temporary RST entry List 

: 847 097 

; 848 097 

; 849 0974 

; 850 0975 ! Loop through the Temporary RST Entry List. Release every entry with 

3 $2) 44 : @ zero reference count back to the memory pool. 

3 833 097 OLDPTR = RSTSTEMP_LIST; 

; 854 N97 RSTPTR = ,OLDPTRCRSTSL_HASH_FLINK); 

3 $2? 94 0 WHILE .RSTPTR NEQ 0 DO 

; 26 981 BEGIN 

; «485 098 IF .RSTPTRCRST$SW_REFCOUNT) EQL 0 

; 858 098 THEN 

; 859 0984 4 BEGIN 

. Bey 985 «4 OLDPTRCRSTSL_HASH_FLINK] = .RSTPTRCRSTSL_HASH_FLINK); 

: 1 388 & DBGSREL _MEMORY (.RSTPTR); 

3 B68 9 4 END 

; 86 988 4 

; 864 989 ELSE 

; 865 43 OLDPTR = .RSTPTR; 

: bey 1444 RSTPTR = .OLDPTRCRSTS$L_HASH_FLINK]; 

; 099 END; 


awn 
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3; Routine Size: 


39 bytes, 


} We are all done--return. 
RETURN; 
END; 
000¢ 606 
33 000000006 00 9E 0000 
2 635 0D 38 18: 
1 1 C 
16 A2 B SOE 
O— 1 4d 
63 g 1) 013 
00 dh 
00000000G 00 01 FB 0001 
f 11 QOO1F 
53 DO 00021 2$: 
E 11 00024 
04 00026 3$: 


Routine Base: 


DBGSCODE + 02€6 


:17 
:26 DEBUG.SR 


Ax=-11 BL Lige s-32 V4.0-74 
C ASTACCE $$.832;1 


et) Save R2,R3 


bree . 
(RSTPTR) 

STPTR), (OLDPTR) 
DBGSREL_MEMORY 


TPTR, OLDPTR 


row 
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4H 3 
RSTACCESS 16-Sep-1984 02:48:17 AX=11 Bliss-32 V4.0-74 Pa 5 
Wee“b00 1228081 98e eet fee DEBUG. SRCIASTACCESS 64551 9 183 
: a } 1 } GLOBAL ROUTINE DBGSSTA_ADDRESS_TO_REGDESCR(ADDRESS) = 
: 87 1908 1 i FUNCTION 
3 0 1 ': This routine determines if a given address is a register address and 
> 881 1005 1! returns a Register Descriptor if it is. If the given address points 
; 88 1308 1! into the DBGSREG_VALUES vector, it is a register address. The register 
; 88 1007 1! number so determined (plus a byte offset if any) on the scope number 
> 884 1008 1! of the currently set context are combined in a ‘Register Descriptor’ 
; 885 1009 1! which is then returned to the caller. (A Register Descriptor is always 
; 886 1010 1! non-zero.) If the address is not a register, zero is returned to the 
; 887 1011 «1! caller. 
3 43 1 1g 1! 
; & 1013 1 =! INPUTS 
; 890 1014 1! ADDRESS = The input address which should be checked for being a 
; £3) a : } register address. 
: 89 1012 1 i ourpurs 
> 894 1018 1! If the given address is not a register address, zero is returned as the 
; 895 1019 1! routine value. If it is a register address, a Register 
; 896 1020 1! Descriptor (which is always non-zero) is returned as the 
; «897. 1021 1! routine value. 
Be BY 
; 900 1024 BEGIN 
; 90 1026 LOCAL 
; at 19st REGDESCR: DBGSREGDESCR; ! Register Descriptor that we build 
en 
; p44 oe) If the address is not a register address, return zero right away. 
: 909 1038 iF (. ADDRESS LSSA DBGSREG_VALUESEO}) OR 
3 ai? IO (-ADDRESS GEQA DBGSREG_VALUES(17]) 
; gig 1036 RETURN 0; 
i 3a 1038 
: 915 1039 : The address is a register address. Build a Register Descriptor and 
; 38 ie } return it to the caller. 
: 918 1048 REGDESCR[DBGS$V_REGD_SENTINEL] = %X'2D'; 
: 919 104 REGDESCREDBGSV-REGD-OFFSET) = (. ADDRESS - pecenes VAL US Ste) AND 3; 
: 920 1044 REGDESCREDBG$B_REGD_REGNUM) = (. ADDRESS = DBGSREG_VALUES(OJ)/2ZUPVAL; 
: 921 1045 REGDESCRIDBGS$W_REGD_SCOPENUM] = .DBGSSCOPE_NUMBER; 
: ; 1968 RETURN .REGDESTR; 
: 926 10468 1 END; 
000C 00000 ENTRY DBGSSTA_ADDRESS_TO_REGDESCR, Save R2,R3 : 1001 
53 000000006 09 9E MOVAB DBGSREG_VALUES, R : 
50 65 9 MOVAB Roseae 2 VALUES. R : 1033 
50 06 ac OD oc CMPL ADDRESS, 3 


wt" 

| gf 
| 51 06 9¢ 
| 
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$1 i} 04 p 
51 ; 0 
51 10 10 00000000" 
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; Routine Size: 71 bytes, Routine Base: DBGSCODE + 0300 
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T $$ 1b-Se 1984 02:48:17 AX-11 Bliss-32 V4 
10-365-1 9be 93:48:26 DEBUG. SRCIRSTACCE 
LOBAL ROUTINE DBGSSTA_GETSOURCEMOD(MODNAMEPTR) = 


FUNCTION 

This routine looks up what module should be used when displaying source 
Lines. It accepts a pointer to a Counted ASCII module name and returns 
a@ pointer to the ceresegen ing Module RST Entry. However, if the name 
pointer is zero, it determines which module contains the current scope 
(as defined by the Scope List) and returns a pointer to that module's 
Module RST Entry. If the module name does not exist or if no known 
module contains the current scope, the routine returns a zero value. 
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CONO VLU “OO OONOUE WOO 


G 
' 
i 
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i 
i 
i 
i 
i 
' 
i 
; This routine is called during the processing of the TYPE command to 

4 determine which module to type source lines from. It is also called 
during the processing of the SET SOURCE/MODULE and CANCEL SOURCE/MODULE 
' 
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commands to look up module names. Only the TYPE command passes a zero 
one a pointer; this happens when no module name is specified on 
e command. 
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3 1 
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; 1 
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g 1 
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INPUTS 


MODNAMEPTR = A pointer to the Counted ASCII module name to be looked up. 
If the module of the current scope is to be looked up, this 
pointer should be zero. 


' OUTPUTS 

A pointer to the Module RST Entry of the module apec tt ted by MODNAMEPTR 
is returned as the routine value. If the desired module could 
not be found (no such module name or current scope not in any 
known module), zero is returned as the value. 


BEGIN 


CAL 
INVOCNUM, ! Invocation number parameter 
MODRSTPTR: REF RSTSENTRY, } Pointer to found Module RST Entry 
i] 


S ' Scope pointer parameter 
SCOPEPTR: REF SCOPESENTRY; i Pointer to current Scope List Entry 


WOOWOOOON NNN NN 


! Jf the MODNAMEPTR parameter is non-zero, we search the RST Hash Table for 
! the Counted ASCII module name pointed to by MODNAMEPTR. 


IF .MODNAMEPTR NEQ 0 
THEN 


S8SEE 


LS 
3 COO0O00®OO@ 


BEGIN 
DBGSHASH_F IND_SETUP( .MODNAMEPTR); 
WHILE TROE DO 


fale lelelelelelalel oj ololojlol ole ejelololololololololola) 


N 
MODRSTPTR = porennen FIND( .MODNAMEPTR) ; 
IF .MODRSTPTR EQL 0 THEN RN O; 

Fe MOORS SP TREES TOD SIMD EQL RST$K_MODULE THEN RETURN .MODRSTPTR; 


COnNO VE WOO 


END; 


eR PN 


RIPE & & & UAUPIPIPIPYIPINYIPINININININPIDINYRYD 3 tt tt ot tt 
. . 
= = 


BSsscssssss< 
oe a 


oo 
we 


Ne 


————_---—— 


su 


Be Se Be Se Se Se Se Se Se Se Ge Se Ge Se Se Ge Se Ge Fe Fe Ge Ge Se Se Se Se Se Se Se Se Se Se Ss Se Se Ge SH Se Se Be Se Se FH SH Ss Se SH Ss SHH Se Se Gs 


990 
991 
99 


SSSSESsaseessses 


S 
coon 


PMOPOPOPOPIRD 2 Os 


WN OOO WOU FWO OONOU Sw 


WA. AAO PORUND 


a a a ak a a at ad a = a kd = a = 1 Ss a I a 


aaa ak a a 8 a ad a a 4 wd 3 a = a a = a Sb 2 a 2 sd a 1 


MAMANIUVIVIUIUIE BEELER EE BS SSsaearriisanubanbw8eseee 
Oo 


CNOA ANEW @ OOO NO UE WIN 0 OONO UNE WIN 0 OD NOAM EWN (OOOO SW "O 


ee ee ee ee ee ed ed ed od wd ed ed 


SOOOCSCOCOSOOCOOOOOOOOCOOOoOoOoOoOoOoOoo 


ww 
“ 


=PINIMIAINININ HANAN NANA MAAN NANA BB ENN ANI NIInonononun 


k 3 
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16-Sep-19 4 93:48:26 DEBUG. SRC Astacess.039;1 


! MODNAMEPTR is zero. We thus search the Scope List for the first scope 
} with a known module and return a pointer to that Module RST Entry. 


PEPTR = : SCOPESLIST: 
ILE, .SCOPEPTR NEG 0 60 
CASE .SCOPEPTRISCOPESL_STATE) FROM SCOPESK_NORMAL TO SCOPESK_SETMODS OF 


SET 


} Normal scope--just return the scope's Module RST Entry pointer. 
{SCOPESK_NORMAL): 
RETURN - SCOPEPTRCSCOPESL_MODPTR); 


' Numbered scope--look up the perrocseaging lexical entity and 
! module in the call stack and return its Module RST Entry pointer. 
If the module is not found, we continue the Scope List search. 
{SCOPESK_NUMBERED): 

BOCES TA_JUMBERED SCOPES. SCOPEPIRESCOPER, ose ta} MODRSTPTR, 


OPE, INVOCNUM) ; 
| yreteecesis NEQ 0 THEN RETURN .MODRSTPTR; 


Global symbol scope--just ignore this entry and continue search. 
CSCOPESK_GLOBALJ: 


: ALL SET modules scope--ignore this entry and continue search. 
CSCOPESK_SETMODS): 


TES; 


: Link to the next Scope List Entry and Loop. 
SCOPEPTR = ,SCOPEPTRCSCOPESL_FLINK]; 


No usable scope was found in the Scope List. Return zero to the caller. 
RETURN 0; 
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; Routine Size: 
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000000006 00 
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0027 
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DD 00045 6$: 
9F 00047 
9F OO04A 
DD 00040 
FB 00050 
DS 00055 
13 00058 
nt) Boner 
04 0005E 
DO OOOSF 7$: 
11 00062 
D4 00064 8 
04 00066 
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12(SCOPEPTR), RO 
SP 
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DRSTPTR 
12(SCOPEPTR) 
#4, DBGSSTA_NUMBERED_SCOPE 
MOORSTPTR 
MODRSTPTR, RO 
{SCOPEPTR), SCOPEPTR 
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GLOBAL ROUTINE DBGSSTA GETSYMBOL(PATHNAME, SYMID, KIN 
UT_SCOPE, ARRAY_FLA 
TYPE_FLAGY: NOVALUE = 


FUNCTION: 

This routine accepts a pathname and returns the corresponding symbol. 
The pathname, which is passed in internal format, consists of a symbolic 
name (such as xX") or a symbolic name with pathname gyal fication (such 
as ‘M\R\X"'). It also includes any data record qualification which may 
be present; thus ‘M\R\A.B.C cone itutes a pathname in this context. 
This routine is the central routine one calls to search the Debug Symbol 
Table (the DST) to find the symbol table entry corresponding to a given 
symbolic name. The search takes into account all scope rules dictated 
by the language and the SET SCOPE and SET MODULE commands. 


INPUTS: 
PATHNAME = The address of a pathname descriptor describing the symbolic 
name to be looked up in the DST. A ‘‘pathname descriptor’ is 
the internal data structure which describes an already parsed 
ayages *6 name including all pathname and data record qualifi- 
cation. 


SYMID = The address of a longword location where the ‘'symbol identi- 

fier’’ should be returned. The ‘symbol identifier’’ is a value 
which uniquely identifies the returned symbol. This value is 
not directly understood outside the symbol table access rou- 
tines, but can be passed to various other symbol table access 
routines to extract information about the symbol. 


The address of a longword location where the ‘‘kind’’ of the 
SYMID or should be returned. KIND specifies whether SYMID 
identifies a routine, a line, or a data item, etc. See the 
OUTPUTS section below for more detail. 


OUT_SCOPE_STATE = If not zero, the caller wishes to have 
passed back to him the scope state 
(e.g., NORMAL, SETMODS, ...) im which 
the lookup succeeded. 


OUT_SCOPE - If not zero, the caller wishes to have passed 
back to him the scope in which the lookup 
of the symbol succeeded. 


ARRAY_FLAG = Indicates that this syabol lookup was 
called as part of processing a subscripted symbol. 
This information is used in BASIC to disambiguate 
ot references. That is, in BASIC, you can have 
symbols named X, one an array and one not, and 
the language uses context to tell them apart. 


TYPE_FLAG = Indicates that it is OK to return a RSTPTR whose 
kind is ‘TYPE’. 


OUTPUTS: 
SYMID = mbol identifier which uniquely identifies the eyebet spec 
d by PATHNAME is returned to SYMID. This symbol identi- 


can then be passed to any symbol table access routine 
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1094 ' which accepts a SYMID parameter. If no uni que symbol corre- 
3? ' sponding to PATHNAME can be found in the DST (given the scope 
838 rules in effect), a zero is returned to SYMID. 

098 ! KIND - The Rie of the SYMID symbol is returned to KIND. This is 
44 a small integer value with the following possible values: 
01 : RSTSK_INVALID <== No symbol was found (SYMID = 0) 
6g ‘ RSTSK_NOTUNIQUE -- syave' is not unique (SYMID = 0) 

0 } RSTSK_ROUTINE <== SYMID is a Routine 

04 : RSTSK_BLOCK == SYMID is a Block 

62 ; RSTSK_ENTRY == SYMID is an Entry Point 
: RSTSK_LABEL “= SYMID is a Label 
i RSTSK-LINE -- SYMID is a Line 
; RSTSK_DATA “= SYMID is a Data Item 
RSTSK_TYPCOMP <== SYMID is a Data Type Component 
' 
1 


No value is returned by DBGSSTA_GETSYMBOL. 
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0 
0 
0 
1 
1 
1 
1 
1 BEGIN 
p 
1 PATHNAME: REF PTHSPATHNAME, ! Pointer to input pathname descriptor 
1 SYMID: REF VECTORC1), ! Pointer to SYMID location 
1 KIND: REF VECTOR(1); ! Pointer to KIND Location 
5 LITERAL 
2 MAX_STACK = 100; ! Maximum size of the symbol mame stack 
5 § aE FR SUNS - Field definitions for SYMSTACK vector 
§ STK_RSTPTR ats = i RST pointer to current stack component 
2 STK-PINDEX = (1, wO_ 1. i Pathname vector index + 1 
2 pik TPINDER =(€ 1, wil ! Next Type RST Entry ref table index 
OWN 
CANDLST: REF VECTORC,LONG) ' Pointer to RST entry candidate List 
3 TEAL(O), ‘ for the current scope 


N L 
MODU_ SCOPE : te) eg th . Scope List entry used for explicitly 
INITIAL(O, SCOPESK_NORMAL, 0, 0) ! specified module scope 
NORM_SCOPE: SCOPESENTRY "Scope (ist entry used for explicitly 
INITIAL(O, SCOPESK_NORMAL, 0, 0) ! specified scopes 
NUMB_SCOPE: SCOPESENTRY Scope (ist entry used for numbered 
INITIAL (0, SCOPESK_NUMBERED, 0, 0); ! scopes (i.e., m\X). 


LOCAL 
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LAG, ' TRUE if symbol is subscripted 

CANDBLK: REF CAND_BLOCKVECTOR, ! Pointer to candidate block-vector 
DEF DEPT ' Definition depth of syssot in scope 
FIRST_MODPTR, i Pointer to first module on scope List 
GOOD_CAND, ' CANDLST index of good condigate symbol 
HAVE LINE NUM ! Flag set if pathname has a Line number 
HAVE ~NUM_SCOPE , 

' 


' Flag set if pathname ha numbere 
' ° scope in first eeete ten ra Ata 
! Flag set when we have scope to search 


HAVE_SCOPE, 
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Flag set if symbol is in current scope 
Loop index for CANDBLK vector 
Line number end address 
Pointer to the inner-most Lexical 
entity gontaining the Line number 
Line nuaber f pathname —— one 
Flag set if there is a i 
it is last in the pathname 
Index of Line number (if present) in 
pathname vector (1-based). 
Line number start address 
Pointer to Module RST Entry for the 
current scope being searched 
Pointer to RST entry symbol name as 
a counted ASCII string 
Number of candidate List entries 
enperey pointer to new RST Reference 
List memory block 
Pointer to the next SET module after 
this one--used when searching all 
SET modules for a pathname match 
Used to convert Line number to binary 
Invocation number of the current 
numbered scope 
Pointer to candidate List about to be 
copied to a larger meners block 
Pointer to pathname counted ASCII 
Start location of scope in pathname 
Pointer to pathname counted ASCII 
Pointer to the pathname vector 
Index into pathname vector 
Pointer to pathname component counted 
ASCII string 
SYMID for register name (such as %R5) 
Same as LINE _LEX_PTR but for the scope 
in which registers are looked up 
Set to TRUE if current scope is scope 
in which registers are looked up 
Pointer to RST entry scope chain com- 
ponent's name as counted ASCII 
Pointer to Routine RST Entry of rout- 
ine with invocation number 
Pointer to current RST entry in RSTPTR 
entry's up=scope chain 
Pointer to candidate RST entry 
Pointer to Static Address Table entry 
Pointer to current scope’s RST entr 
Points to the current scope List entry 
Pointer to start of scope List actual- 
ly searched--used for registers 
The current state in our traversal of 
the scopes to be searched 
Pointer used to follow current scope's 
up scope chain 
Set to TRUE if called by SET SCOPE 
Status code returned by called routine 
Current SYMSTACK index 


a 
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IN_SCOPE, 
LINEEND, 
LINE_LEX_PTR, 
LINE_NUM, 

LINE "NUM! IS_LAST, 
LINE_NUM_LOC, 


LINESTART, 
MODRSTPTR: REF RSTSENTRY, 


NAMEPTR: REF VECTORC BYTE), 
NCANDS, 

NEWREFLIST, 

NEXTSETMOD: REF RSTSENTRY, 


NUMBER, 

NUMSCP_ INVOC_NUM, 
OLDCAND, 
PATH_NAME_PTR 
PATHSTART_LOC, 


NAME WN O OONA YL FW -" OOONOUE Ww 


ING 
PATHVEC: REF VECTORC.LONG), 
PNAME: REF VECTORL,BYTE), 


REGISTER_SYMID: REF RSTSENTRY, 
REG_LINE-LEX_PTR, 


REG_SCOPE, 
RNAME: REF VECTORC,BYTE), 
ROUTPTR: REF RSTSENTRY, 
RPTR: REF RSTSENTRY, 
RSIPTR: REF RSTSENTRY, 
SATPTR: REF SATSENTRY. 
SCOPE: REF RSTSENTRY 
SCOPEPTR: REF SCOPESENTRY, 
SCOPE_START_PTR, 
SCOPE_STATE, 
SCPTR: REF RSTSENTRY, 
SET_SCOPE, 

U 


STATUS, 
STKPTR, 
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STM 
SYMStOPe! REF RSTSENTRY, 
SYMSTA eeack for name components 


“BLOCKVECTORCMAX STACK, 2, thos FIELD (STK. hg . 


Statement number within Line number 

i 
TPINDEX, : Index into a Type RST Entry’ s table of 

i 


. pe Beye of the current symbol 


references to that 

TPTR: REF VECTORC,LONG), Pointer a the Type RST Er ety refer- 
en 

VALID_LINE_FLAG; 


able 
Flag set th Line number is valid 


' Note whether we were called by the SET scope command. 


T_SCOPE = .RSTSSET_SCOPE; 
SET .SC0 _SCOPE = FALSE; 


BEE EEF EAI NINw 


NOME ARO OONOU EW OO 


VORRUN SS OeNenrun—oobe 


! Set up pointers to the pathname descriptor'’s pathname vector and the Last 
: name in the pathname vector. 


PATHVEC = PATHNAMECPTHSA_PATHVECTOR); 
NAMEPTR = .PATHVECL.PATHRAMELPTHSB_TOTCNT) = 1); 


wr 


' See if there is any Line number reference in the pathname. If there is, 
i extract the Line and statement numbers and set the HAVE LINE Thun flag. 


Have _LINE_NUM = FALSE; 
LINE_NUM_ Ts “x % = FALSE; 
E-NUM-L 


LIN 
VALID Utne: FLAG = TRUE; 
INC ae FROM 1 TO .PATHNAMECPTHSB_TOTCNT) DO 


N 
PNAME = poruvect.J = V3 
IF ¢, PNAMECO ] GiR 4) AND 
CHSEQL (6, pRAMEL. 6. UPLIT BYTECZASCII “2LINE *), 0) 
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BEGIN 

IF .PNAMEC7) LSS 'O' OR .PNAMEL7) GTR '9* THEN VALID_LINE_FLAG = FALSE; 
IF .HAVE LINE ~NUM THEN VALID_LINE_FLAG = FALSE; 

HAVE _LINE_NUM™= TRUE; 

LINE-NUM_COC = A; 
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' Loop over the Line number ASCII to pick up the actual Line number 
' and statement number. 


LINE NUM = 1; 

NUMBER 

INERT FROA 7 TO .PNAMELO] DO 
IF .PNAMEC.1) EQL *.* AND .LINE_NUM EQL -1 
THEN 


Be Se Oe Oe Be Se Se Oe Oe Oe Ge Fe Se Ge Ge Se Ge Be Se Ge Ge Ge Se Se Se Se Se Ge Oe oe Se HSH Ss Oe Be Se Se HSH Se Oe Oe Oe HSH SH Ss Se Se Se Se Se ee Se eee 
el el el el ll ee el el el ll lt cael el ll ll ll ll ll cl el el el cl el lt ll ll ll cl ll lt lt lt ll lt cll ll ls 
PAA 


ee mm ee a ed dd ed od od dd td 


rs 
oc 
AOKI BEAR EEE EEE PAWN RIPPPOPUPOPINOPOPONOPOPORPUPUPU PNUD 


AANA AAAI NIAAA 
} try te ot saw 
WMPwnN—O ier 


Rohononsnonofonononons 


BEGIN 
LINE_NUM = .NUMBER; 
NUMBER = 0 
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END 


ELSE IF (.PNAMEC.1] GEQ 'O*) AND (.PNAMEC.I1] LEQ '9") AND 
(.NUMBER LEQ 1000000) 


THEN 

NUMBER = 10*.NUMBER + (.PNAMEC.I] = '0') 
ELSE , 

VALID_LINE_FLAG = FALSE; 

EXITLOOP; 
END; 


Set LINE_NUM and STMT_NUM properly on Loop exit. 
if ~LINE_NUM EQL =1 


HEN 
BEGIN 
LINE_NUM = ,NUMBER; 
STMT_NUM = 0; 
END 

ELSE 
STMT_NUM = .NUMBER; 

END; 

END; ! End of Line number INCR Loop 


If we got a Line number, make some additional validity checks on it. 
If the Line number is not valid for any reason (including syntax errors), 
return the invalid symbol code to the caller. 


F_.HAVE_LINE_NUM 
EN 


(ZLINETNUM“LOC LSS .PATHNAMECPTHSB-PATHCNT) - 
(.LINE“NUM~LOC EQL .PATHNAME 


VALID_LINE_FLAG = FALSE; 
IF NOT .VALID_LINE_FLAG 
THEN 

BEGIN 

Fel = 0; 

KINDCO) = RSTSK_INVALID; 

RETURN; 


BEGIN 
LINE_NUM_IS LAST = .LINE NUM LOC EQL .PATHNAMECPTHSB TOTCNT); 
IF (CLINE_NOM_LOC GTR .PATHNAME pe cheap OR 


) OR 
PTHSB_PATHCNT] AND NOT .LINE_NUM_IS_LAST) 


END; 
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: if we do not yet have a candidate List memory block, get one and initial- 
ze its first element to give the List size that will fit in the block. 


NCANDS = 0: 
IF .CANDLST EQL 0 
THEN 


BEGIN 
CANDLST = CM Siderits 
SOL STCRS = 10; 


VIEW "OOOnNO NET 


! Set up the ‘scope pointer’’ to gore to the List of scopes to be searched. 
! If the symbol is of the form \X, we search the Global Symbol Table only, 
' and if it is of the form n\X, we search the n-th “‘numbered scope’’ only. 
Otherwise, we use the normal scope List given by SCOPESLIST. 


SCOPEPTR = .SCOPESLIST; 
E SCOPE = FALSE; 
PATHVEC(O); 
-PNAMECO) EQL 0 
THEN 


BEGIN 
IF .PATHNAMECPTHS$B_LOCINVOC] EQL 0 
SCOPEPTR = UPLIT(O, SCOPESK_GLOBAL, 0, 0) 
FLSE IF .PATHNAMECPTHSB_LOCINVOC) EQL 1 
BEGIN 
HAVE _NUM_SCOPE = TRUE; 
E = N . 


SCOPEPTR une SCOPE 
SCOPEPTRCSCOPESC_MODPTR] = .PATHNAMECPTHSL_INVOCNUM); 
pf PATE LP TNE PATH) LSS 2 THEN SCOPEPTR = 0; 


AW 
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ELSE 
$DBG_ERROR('RSTACCESS\GETSYMBOL '); 


If there is pathname qualification on the variable name other than the 
global scope or a numbered scope, we determine what scope is specified 
and set up a scope List entry for that scope. 
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, +4 IF (.PATHNAMECPTHSB_PATHCNT) GTR 1) AND (.LINE_NUM_LOC NEQ 1) 

71 BEGIN 

@ PATH START LOC = .PATHNAME(PTHSB_PATHCNT) = 1; 

a IF .CINE_NOM_LOC EQL .PATH_START_LOC 

76 PATH_START_LOC = .PATH_START_LOC = 1; 

7 

78 500 ' Loop over the RST Hash Table chain for this symbol name (i.e., for the 
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! scope specified by the pathname). For each such symbol, see if it 
matches the rest of the pathname qualification. 


MODU_SCOPE Scones. ASTeTR) s 0: 
NORM_SCOPELSCOPESL-RSTPTR] = 0; 

PATH NAME PTR = .PATHVECC.PATH_START_LOC = 1); 
DBGSRASH FIND _SETUP(.PATH_NAME_PTR); 

we dO 


Get the next symbol from the hash chain. Check for chain's end. 


RSTPTR = DBGSHASH_FIND(.PATH_NAME_PTR); 
IF .RSTPTR EQL O THEN EXITLOOP; 


! Scan the symbol's up-scope chain and see if it fully matches the 
specified pathname qualification. If so, this is the scope. 


3 3 1 

3 3 1 

3 3 1 

3; 1 1504 

3 : : 08 

s 3 1 5 

3 1 1 BB 

. y 1509 4 

3: 1 1510 4 

4 112 

; 1 1818 4 

3 1 1814 4 

3 7 1ei2 4 

3 1 1 1g 4 

3 1 1517 4 

3; 1 1518 4 

3 1 1519 4 

; 1338 1520 4 : 

3; 1399 1521 4 RPTR = .RSTPTR; 

3 1400 15 ¢ 4 PINDEX = .PATH_START_LOC; 

3 1401 15 4 WHILE TRUE DO 

: iene 1526 5 BEGIN 

3; 140 1525 5 IF .RSTPTRCRSTSV_GLOBAL] THEN EXITLOOP; 

3 1404 15 $ IF (.RSTPTRCRSTSB_KIND) NEQ RSTSK_MODULE) AND 

3; 1405 15 (.RSTPTRLRSTSB_KIND) NEQ RSTSK_ROUTINE) AND 

3; 1406 1528 (.RSTPTRURSTSB_KIND] NEQ RSTSK_BLOCK) AND 

3: 1407 1529 6 (.RSTPTRCERSTSB_KIND] NEQ RSTSK_TYPE) 

3: 1408 1530 5 HEN 

3; 1409 1531 5 EXITLOOP; 

3; 1410 1236 5 

3 1411 15 5 PNAME = .PATHVECC.PINDEX = 1); 

: od 1238 5 RNAME = DBGSGET DST_NAME( .RPTRCRSTSL DSTPTR)); 

3 141 1535 5 IF CHSEQL(.PNAMECOJ, PNAMECL1], .RNAMECOJ, RNAMEC1), 0) 
3 1414 1536 5 THEN 

3 1615 1537 6 BEGIN 

3 1416 1538 6 

3 1417 1539 6 

3; 1418 1540 6 ! If the pathname ended and everything matched so far, this 
3; 1419 1541 6 ! may be the desired scope. Create a scope list entry for 
3 1420 HF 6 ! it and check for uniqueness. 

3 1421 1543 6 : 

3 14 § a 6 If .PINDEX EQL 1 

3 14 1545 $ THEN 

3 lest 1266 BEGIN 

3 1425 154 7 MODRSTPTR = .RSTPTR; 

3: 1426 1548 7 WHILE .MODRSTPTRCRST$B_KIND] NEQ RST$K_MODULE DO 
: i¢ , 136? 4 MODRSTPTR = .MODRSTPTRCRSTSL_UPSCOPEPTR); 
3 1429 1551 7 SCOPEPTR = NORM_SCOPE; 

3; 14 1236 7 IF .RSTPTR EQL “MODRSTPTR THEN SCOPEPTR = MODU_SCOPE; 
3: 1431 1553 7 IF .SCOPEPTRESCOPESL_RSTPTR) “EQ 0 

3 14 ; 1554 7 THEN 

3 14 132? BEGIN 

3 14 1 2$ He = 0; 

> 1435 155 KINDCO) = RSTSK_NOTUNIQUE; 
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ib-se -1984 02:48:17 AX-11 BLi 0-74 
14-Sep-19 4 93:48:36 DEBUG. SRCIRSTACCESS. 
RETURN; 
END; 
SCOPEPTRESCOPESL_RSTPTR] = .RSTPTR; 
SCOPEPTRESCOPESL_MODPTR] = .MODRSTPTR; 
EXITLOOP; 


: Decrement the PATHVEC index and continue the search. 
PINDEX = .PINDEX = 1; 
END; 


Link up-scope and continue the search. 


if .RPTRCRSTSB_KIND] EQL RSTSK_MODULE THEN EXITLOOP; 
a = .RPTRCRSTSL_UPSCOPEPTRI; 


END; ' End of WHILE loop over nash table 


! Depending on whether a normal scope or a module scope or both were 
! found to match the pathname, put the corresponding scope List entries 
on the scope List. 


SCOPEPTR = 0: 
MODU_SCOPECSCOPESL_FLINK] = 0; 
1F .RORM_SCOPECSCOPESL_RSTPTR NEQ 0 


BEGIN 
MODU_SCOPECSCOPESL_FLINK] = NORM_SCOPE; 
SCOPEPTR = NORM_SCOPE; 


J MOON SCMPEL SLOPED ASIP IRS NEQ 0 THEN SCOPEPTR = MODU_SCOPE; 


! Set up NEXTSETMOD for a search through all SET modules, Also save the 
' scope-list start pointer so we can look up the symbol in that scope in 
: case it happens to be register name. 


COPE = FALSE; 

NE_LEX_PTR = 0; 

MOBPTR™= 0; 

OPE START PTR = .SCOPEPTR;: 

gi: SCOPEPTR EQL MODU_SCOPE) AND (.MODU_SCOPECSCOPESL_FLINK] NEQ 0) 


SCOPE_START_PTR = .MODU_SCOPECSCOPESL_FLINK); 


' Loop through all the proper scopes, searching for a symbol which matches 
! the specified pathname. 
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! 
WHILE TRUE DO 
BEGIN 


32 v4.0-7%4 p 8 
ractegs 08551 age 438 


ODD 
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! Loop through the scope selection code until we find a scope in which 
; to search for the specified pathname. 


HAVE_SCOPE = FALSE; 
WHILE TRUE DO 
BEGIN 


! If the scope List has no more entries, we have searched all scopes 
! on the List without einetes the desired symbol. This means that 

' the symbol is not in the RST so we return RSTSK_INVALID as the 

! status. However, we first call GET_REGISTER_SYMID to see if the 

: syabet could be a register name e293 “ER5'T. If so, we return 
the register SYMID built by GET_REGISTER_SYMID instead. 


F_.SCOPEPTR EQL 0 
HEN 
BEGIN 


' 
i 
i 
i 
i 
i 
i 
I 
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Determine whether this name could be a register name. 


REGISTER_SYMID = GET_REGISTER_SYMID(.PATHNAME , 
-SCOPE_START_PTR, .REG_LINE_LEX_PTR); 


! If this is not a register name, return the invalid symbol 
' status to the caller. Note that we also give the informa- 


Sat ek ee 


' tional ‘'no Line nn"’ message here if a Line number was speci- 
! fied which could not be found in the first scope. 


' 
i 
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5 i 
9 5 F .REGISTER_SYMID EQL 0 
5 HEN 
1 5 BEGIN 
2 ¢ 3 IF .HAVE_LINE_NUM AND (.FIRST_MODPTR NEQ 0) 
33 5 DBGSLINE_TO_PC_LOOKUP(.LINE_NUM, .STMT_NUM, 
33 7 TFIRST“MODPTR, LINESTART, LINEEND, TRUE); 
SYMIDCO) = 0; 
538 660 STNoLO) = RSTSK_INVALID; 
539 661 RETURN; 
540 666 3 
541 be 
348 664 
54 665 ! This symbol is a register. Return its SYMID and kind to the 
544 606 ' caller. 
343 ree Syn ] = REGISTER SYMI 
305 669 SINS = DREGISTER SYMIDCRSTSB_KINDJ; 
48 670 
54 671 
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3 3 167 ! Zero the output parameters saying what scope we found the 
: : ? 1878 } symbol in = these are aeaningless for registers. 
; § 1675 if {OUT SCOPE_STATE NEQ 0 
: 1555 1879 .OUT_SCOPE STATE = 0; 
; ; $ 1o78 {Fg Ov! Store REQ 0 
: 1558 16 .OUT_SCOPE = 0; 
.) 
: 1561 16 : ! Mark the register RST entry as betns relecenced by adding its 
3 3 o¢ 1684 : address to the RST Reference List (RSTSREF_LIST). This says 
3; 156 1685 ! that the RST entry is referenced by the current Debug command. 
3 1288 § Then return. 
: 1566 1688 if .RSTSREF_LISTC1) EQL .RSTSREF_LISTCOJ 
; 1368 1890 & THEN EGIN 
31 $9 1691 6 RSTSREF_LISTCO] = .RSTSREF _LISTCO) + 20; 
; 1570 1098 6 NEWREFLIST = DBGSGET_MEMORY(.RSTSREF _LISTCO) + 2); 
3; 1571 16935 6 CHSMOVE (4e( .RSTSREF _CISTC1) + 2), -RSTSREF _LIST, eNEWREFLIST); 
3 1276 1694 6 DBGSREL_MEMORY( .RSTSREF LIST); 
3 157 1695 6 RSTSREF-LIST = .NEWREFLTST; 
B18 ar, 
; 1576 1698 5 RSTSREF LISTE} = .RSTSREF LIstC1] +1; 
3 1577 1699 § RSTSREF-LISTC.RSTSREF_LISTC1) + 1) = .RSTPTR; 
Se ae 
Te Re } 
: 1386 1704 4 ' Set REG_SCOPE to TRUE if the current scope is the scope in which 
3 1387 Hf4e4 é : 3 register would be looked up. 
: 1585 1707 4 REG_SCOPE = .SCOPEPTR EQL .SCOPE_START_PTR; 
se 
; 1208 179 ? Try to select a scope to search based on the current scope state. 
: 1590 Wie 4 SCOPE_STATE = .SCOPEPTRESCOPESL STATE); 
3; 1591 171 4 CASE .SCOPE_STATE FROM SCOPESK_RORMAL fo SCOPESK_SETMODS OF 
: 1236 1714 4 SET 
Wm oR 
3 1595 1719 4 ! Search a normal, named scope as declared with a SET SCOPE 
; 1396 178 4 ! command, We pick up the scope information directly from the 
: 159 1719 4 i scope List entry. Note that the scope's module must be SET; 
: 1398 Hf ? otherwise the scope is not searched. 
; 1600 7 ; 4 CSCOPESK_NORMAL): 
3 160 1726 SCOPE =. SCOPEPIRESCOPESL RSTPIRI: 
3; 160 1725 MODRSTPTR = . COE TRC SCOP L modPtR): 
; iene 17 $ IF .MODRSTPTRIRST$V_MODSET) TREN HAVE SCOPE = TRUE; 
; 1605 17 SCOPEPTR = .SCOPEPTRISCOPESL_FLINK); 
3; 1606 1728 4 END; 
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4 DEBUG. SRCIRSTACCESS.B (12) 


' Search a ‘‘numbered scope’, i.e. the scope where the PC is cur- 
! rently positioned N levels down in the CALL stack. To do this 
' we look up the PC in the Static Address Table to find the con- 
' taining lexical entity. If that succeeds (and the module is 

SET), we use that scope. 
c 


SCOPESE MURDERED]: 


DBG$STA_NUMBERED_SCOPE (.SCOPEPTRESCOPESL_MODPTR] 
MODRSTPTR, SCOPE, NUMSCP_INVOC_NUM) ; 

IF .SCOPE NEQ 0 THEN HAVE ScOBE = TRUE; 

SCOPEPTR = .SCOPEPTRISCOPESL_FLINK); 


: Search the Global Symbol Table (GST) for the symbol. We do 
! this only if the symbol is of the form ‘X"' or “\xX"’. We do 
' the search right here, and if we find the symbol, we return 
to the caller right away with the proper SYMID and KIND. 


CSCOPESK GLOBAL]: 
— = .PATHVEC(CO); 
PATHNAMECPTHS$B. TOTCNT) EQL .PATHNAMECPTH$B_PATHCNT]) AND 


(, 
((,. PATHNAME pres 1OTCNT EQL 2 AND .PNAMECO] EQL 0) OR 
ional” PATHNAMECPTHSB_TOTCNT) EQL 1)) 


BEGIN 
RSTPTR = DBGSSTA_LOOKUP Get 

~PATHVECC .PATHNAMECPTHSB_TOTCNT) = 1)); 
[y_estere NEQ 0 


BEGIN 
SYMIDCO] = .RSTPTR; 
KINDCO] = .RSTPTRCRSTSB_KINDJ; 


! If the user requested the information then fill in the 
output parameters which say what scope we are looking in. 


Pp 
IF 


if ;,0UT_SCOPE_STATE NEQ 0 
.OUT_SCOPE STATE = SCOPESK_GLOBAL; 
IF .OUT_SCOPE REQ 0 
THEN 
.OUT_SCOPE = 0; 
RETURN; 
END; 
END; 


o_o = ,SCOPEPTRCSCOPESL_FLINK); 
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Search all SET modules for the symbol. Here we locate the 
next SET module on use that as the current scope. Note that 
we accumulate candid 

selecting the candidate that best matches the name. 


SCOPESK SETMODS): 
BEG 


ate symbols over all SET modules before 


IR 


' The first time eee. make NEXTSETMOD point to the first 
' SET module and set the number of candidates to zero. 


—_— EQL .RSTSSTART_ADDR 
BEGIN 
WHILE .NEXTSETMOD NEQ 0 DO 
BEGIN 
»NEXTSETMODCRSTSV_MODS 
TSETMOD = .NEXTSETMODL 


T) THE 
x T 
D; 


STS$L_N 


Make MODRSTPTR and SCOPE point to the next SET module and 

make NEXTSETMOD point to the SET module we will search the 
next time around. When NEXTSETMOD becomes zero, there is 

no next time around. 


MODRSTPTR = .NEXTSETMOD; 
SCOPE = .MODRSTPTR: 
WHILE  .NEXTSETMOD NEQ 0 DO 


N 
NEXTSETMOD = My Oe ee ae By NXTMODPTR); 
If .NEXTSETMOD EQL 0 THEN E OOP; 

fig MERE SE TARDE ES TOY MONEE Sg THEN EXITLOOP; 


IF .MODRSTPTR NEQ 0 THEN HAVE SCOPE = TRUE; 
IF NEXT SETMOD EQL 0 THEN SCOPEPTR = .SCOPEPTRESCOPESL_FLINK); 


' If we now have a scope to search, exit the scope-locating loop 
: and search that scope. Otherwise, loop to locate another scope. 


iF .HAVE_SCOPE THEN EXITLOOP; 


' End of WHILE loop to find a scope 


! We now have a scope to search. Make sure the corresponding module's 
symbol table is in the RST. 


if NOT .MODRSTPTRCRSTSV_MOD_IN_RST) 
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3 1721 1 THEN . 
: if ¢ ! DBGSRST_BUILD(.MODRSTPTR, FALSE); 

: 1726 1 

3 1725 1 ' If the user requested the information then fill in the 

; 1? $ : } Output parameters which say what scope we are looking in. 

: 17 8 1 if .OUT_SCOPE_STATE NEQ 0 

3 17 1 THEN 

3; 17 1 OUT SCOPE STATE = .SCOPE_STATE; 

; if 1 : i -OUT_SCOPE REQ 0 

; 7 § .OUT_SCOPE = .SCOPE; 

: 1735 1 

3 17 1 ! If there is a Line number in the pathname, find the lexical entity 

3: 1737 1 ! within this scope’s module which contains that Line number. Note 

: i 3 : that we search for the lowest level (innermost) lexical entity. 

: 1740 iF HAVE LINE_NUM 

eS er 

> 1744 1 4 

3; 1745 ibe? & ! If this is the first real scope on the scope list, save the 

: HE | 1868 4 ' current Module RST Entry pointer in case we will need it for 

3 ire 139) ? the ‘'no Line nnn’* informational message. 

: 1749 1871 4 iF .FIRST_MODPTR EQL 0 THEN FIRST_MODPTR = .MODRSTPTR; 

Fee 1878 

3 1738 ore ; } Look up the Line and statement numbers in the scope'’s module. 

: 1754 1876 4 STATUS = DBGSLINE_TO_PC_LOOKUP(.LINE_NUM, .STMT_NUM, 

: 1736 + 144 2 -MODRSTPTR, LINESTART, LINEEND, FALSE); 
: 175 1878 4 

3; 1758 1880 4 ' Look up the Lowest-level (innermost) lexical entity which contains 
3; 1759 1881 4 ! the Line we just looked up. We do this by searching the module's 
3 1790 S36 ? Static Address Table. 

: 176@ 1882 4 SATPTR = .MODRSTPTRCRSTSL_SAT PTR); 

3 176 1885 4 IF NOT .STATUS THEN SATPTR = O; 

3; 17646 1 Hy] 4 LINE_LEX_PTR = 0; 

: 1765 4 WHILE, .SKTPTR NEG 0 DO 

: 1769 1 gs IF .SATPTRCSATSL_START]) GTR "Nenana THEN EXITLOOP; 

; 1768 1890 RSTPTR = BATE TACSATS parte ; 

3 178 1891 IF (.SATPTRESATSL_END) GEQ .LINESTART) AND 

; 1770 1 4 6 (.RSTPTRERSTSB_KIND) EQL RSTSK_ROUTINE OR 

3; 1771 189 g eRSTPTRLRSTSB_KIND) EQL RSTSK_BLOCK) 

: 17 1894 N 

es 139 PF ot INE_LEX_PTR EOL 0 

1773 1 3 3 my 5s ote RSTPTR 

: 1979 1399 penn wees 
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ae = ,RPTRCRS'SL_UPSCOPEPTRI; 


~o 
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END; 
END; 
SATPTR = ,SATPTRESATSL_FLINK); 
END; ! End of WHILE loop over the SAT 
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! In case we have to look up a tes pe» in this scope, save the 
value of the Line number lexical entity pointer. 


iF .REG_SCOPE THEN REG_LINE_LEX_PTR = .LINE_LEX_PTR; 
END; ! End of Line number lexical entity code 
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! Set up the RST Hash Table search for this syabel and loop over all 
' hash table entries for the syasol's name. or each RST entry we find, 
' we try to match the full pathname. f this succeeds and the pyeba! is 
in the current scope, the RST entry is added to a ‘candidate list’’. 


DBGSHASH_FIND_SETUP( .NAMEPTR); 
WHILE TROE DO 
BEGIN 


' Get the next RST entry with the specified symbol name. If the 
' desired py po is a } ne number, we pick up the lexical entity 
! which contains the Line instead. 


' 
‘ 
' 
; 
IF .LINE NUM_JS_LAST 
THEN 
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F - 

HE 

EGIN 

RSTPTR = sh ANE LEX PIR: 
NE_LEX_PTR = 0; 

END 


' Otherwise, pick up the next RST Hash Table entry with the 
specified symbol name. 
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ELSE 

RSTPTR = DBGSHASH_F IND( .NAMEPTR); 


(00 C2 CD CD CD 
DONO 


! If the RST pointer is zero, we found no more symbols with the 
right name so we exit the search loop for this scope. 


if .RSTPTR EQL O THEN EXITLOOP; 


FLESLELE 
NOVE WO 


: Rohe a mew SYMSTACK entry for this RST entry in the up-scope 
. cnain. 
a 


STKPTR = ,STKPTR ¢ 1; 
IF .STKPTR GEQ MAX STACK THEN EXITLOOP; 
SYMSTACKE.STKPTR, STk_RSTPIR] = ,RPIR; 
SYMSTACKL.STKPTR, STK-PINDEX) = 0: 
SYMSTACKL.STKPTR, STK-TPINDEX) = 0; 


—_ 
-o 
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' If this parhnane component is a Line number or a scope number, 
t in pathname matching. 


3 3 1957 4 

3 3 19 8 4 

.% 19 4 

: 1 1960 4 

3: 1 1961 4 

3 1 1396 4 

> 1965 4 

3 1 1964 4 

3 1 1965 4 

3 1 1298 4 

3 1 1967 4 ! Loop through the RST entry scope chain to match it to the speci- 
31 1968 4 : fied pathname. !f the full pathname matches and the symbol is in 
3 1 P44 4 ! the current scope, we add the RST entry to the ‘‘candidate List’’. 
3; 1848 1970 4 ‘ 

3 1849 1971 4 STKPTR = 0; 

3 1850 197 4 RPTR = .RSTPTIR; 

3; 1851 1975 4 PINDEX = .PATHNAMECPTHS$B_TOTCNT); 

3 1338 1974 & WHILE TRUE DO 

>; 185 1975 : BEGIN 

; 1854 1378 

3; 1855 1977 5§ 

; 1856 1978 5 ! If this is a global symbol or a module, do not even attempt to 
; Het 4 : } match it to the pathname--exit the pathname matching loop now. 
3; 1859 1981 : IF .RSTPTRCRST$SV_GLOBAL] OR 

; 1860 st (,.RSTPTRCRSTSB_KIND) EQL RSTSK_MODULE) OR 

3; 1861 198 ((NOT .TYPE_FLAG) AND (. RSTPTRERSTS$SB_KIND) EQL RSTSK_TYPE)) 
3 1306 1984 HEN 

3; 186 1985 EXITLOOP; 

3: 1864 1358 

3; 1865 198 

3 1866 1988 ! Also, if we are called by DBGSRST_SETSCOPE, do not consider 
3; 1867 1989 ! the symbol unless it is a routine or lexical block. 

; 1868 1990 ' 

3; 1869 1991 IF .SET_SCOPE 

3; 1870 + 0.44 THEN 

3; 1871 1993 6 BEGIN 

3 1876 1994 § IF (.RSTPTRCRSTSB_KIND) NEQ RSTSK_ROUTINE) AND 

3; 187 1995 (.RSTPTRCRSTSB_KIND] NEQ RSTSK_BLOCK) 

3; 1874 HP 4 | 6 N 

3 1322 132 6 EXITLOOP; 

; 1877 1999 © END; 

: 1899 

3; 1 

3 

3 1 

3 1 

3 1 

: 1 

3 1 

3 9 

3 1 

s 1 

3; 1 

: 1 
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' we skip over 
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aussie 


3 1 014 
3 1 38 81? 
; 1894 18 
3 : 95 3 
: 1899 819 
; 1898 020 
: 1899 021 
; 1900 0 ¢ 
; 1901 0 

3 1OOe 024 
; 190 8 5 
3 1904 § 
3; 1905 0 

3: 1906 028 
: 1907 029 
3; 1908 030 
3; 1909 031 
3 1910 0 § 
3 1911 0 

; bat bee 
3; 191 035 
: 19146 O36 
3 1915 037 
3: 1916 038 
3 1917 039 
; 1918 040 
3; 1919 041 
: 1920 am 
: 1921 04 
3 19 ¢ 044 
3 19 2045 
: 1926 2046 
3: 1925 047 
3 1926 048 
3 1927 049 
3: 1928 050 
3; 1929 051 
3; 19 O28 
3; 1931 05 
3 1936 054 
3 Str 055 
3 19 B26 
: 1935 05 
3; 19 058 
3; 1937 059 
; 13e8 060 
; 1939 061 
3; 1940 O6¢ 
3 1961 06 
3 Hb ra 064 
a Be 
3; 1945 boo 
3: 1946 068 
3 19467 068 
: 1948 070 
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1328ee= 138 93:48:36 DEBUG. GRCIASTACCESS 03551 9042) 
' 
if (.HAVE_LTNE_NUM AND (.PINDEX EQL LINE NUM_LOC)) OR 
(.HAVE_NUM_SCOPE AND (.PINDEX EQL 1)) 


PINDEX = .PINDEX = 1; 


' if ie current pathname component matches the current scope 
' chain name, set PINDEX to point to the next pathname compo- 
i nent. If PINDEX already pointed to the top component name, 
the pathname matches and we make a candidate list entry. 


PNAME = .PATHVECC.PINDEX = 1]; 
IF .PINDEX EQL 0 THEN PNAME = 
RNAME = DBGSGET_DST_NAME(.RPT 
IF CHSEQL(.PNAMECOJ> PNAMEL1) 
DEX EQL 0) 


BEGIN 


* PATHVECO); 
RERSTSL_DSTPTRI); 
» «RNAMECO], RNAMEC1], 0) OR 


Record the fact that RPTR matches this Pathname component. 
SYMSTACKC.STKPTR, STK_PINDEX] = .PINDEX; 

: If the last (top-level) pathname component just matched, 

' we see if the symbol is in the current scope. it is, 
we add the symbol to the candidate List (CANDLST). 


if (.PINDEX LEQ .PATHNAMECPTHSB_PATHCNT]) AND 
megrrree RSTSB_KIND] NEQ RSTSK-TYPCOMP) 


BEGIN 


Determine what the scope of the current symbol is. 


SYMSCOPE = .RSTPTR; 
IF .RSTPTRCRSTSB_KIND] NEQ RSTS$K_MODULE 


SYMSCOPE = .RSTPTRCRSTSL_UPSCOPEPTRI; 
IF .SYMSCOPECRSTSB_KIND] EQL RSTSK_TYPE 
SYMSCOPE = .SYMSCOPECRSTSL_UPSCOPEPTR); 
If we are searching all set modules, we claim that the 
the Systet is declared at the module level so that all 
symbols have the same definition depth. Also, if we 


are looking for a Line number, we treat it as being 
defined at the module level. 


eT te te te 


' 
i 


EXTTLOOP; 


SCPTR = .SCPTRCRSTSL_UPSCOPEPTR); 
END; 
END; 


If the symbol is in the current scope, create a ‘‘can- 
didate enter, for it. Then enter that entry on the 


“candidate List" 
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3; 1949 071 WHILE .SYMSCOPECRST$SB_KIND] NEQ RSTSK +4 pa 00 : 
; 1981 876 SYMSCOPE = . SYMSCOPECRSTSL_UPSCOPEPTR $ 
3 19 ¢ 074 END; 
3 132 075 7 
3; 1954 076 7 
3 1322 4 Determine whether the symbol is in the current scope. 
; 1389 6f8 7 SCPTR = .SCOPE; 
; 1958 080 7 DEFDEPTH = 0; 
: 1959 081 7 IN_SCOPE = TRUE; 
; 1960 8 ¢ 7 WHILE TRUE DO 
3; 1961 8 BEGIN 
; 1206 084 4 IF .SCPTR EQL .SYMSCOPE THEN EXITLOOP; 
> 196 085 IF .SCPTRCRSTS$B_KIND] EQL RST$K_MODULE 
: 1964 O86 8 THEN 
3: 1965 087 9 BEGIN 
3; 1966 088 9 IN_SCOPE = FALSE; 
3 1967 089 9 EXTTLOOP; 
3; 1968 090 8 END; 
3; 1969 091 : 
; 1970 09 SCPTR = .SCPTRCRSTSL_UPSCOPEPTRI; 
3: 1971 09 ° DEFDEPTH = .DEFDEPTH + 1; 
i 19% 094 END; 
: 197 095 7 / 
3 1976 b96 7 
3; 1975 097 7 ' If a Line number is preoees in the pathname, make sure 
; 1976 098 7 ! this symbol has the Line's lexical gre ity in its up- 
; p44 + 4 : scope chain. Otherwise set IN_SCOPE to FALSE. 
; 1979 01 7 IF .HAVE_LINE_NUM AND .IN_SCOPE AND NOT .LINE_NUM_IS_LAST 
: 1980 Oe 7 THEN 
; 1981 0 BEGIN 
; 198 04 IN_SCOPE = FALSE; 
; 198 05 SCPTR = .RSTPTR; 
> 1984 06 WHILE .SCPTRCRST$B_KIND] NEQ RSTSK_MODULE DO 
3; 1985 7 9 BEGIN : 
3 1986 8 9 IF .SCPTR EQL .LINE_LEX_PTR 
3: 1987 9 9 THEN 
; 1988 0 10 BEGIN 
; 1989 10 IN_SCOPE = TRUE; 
2 1 10 
3 1 9 
: 1 S 
31 g 
3 : 8 
SS ; 
3 1 7 
e 7 
3: 1 7 
3 7 
: 7 
: 7 
: 7 
3 7 
3 8 
| 
L 
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Create the candidate entry for the symbol. 
CANDBLK = DBGSGET_MEMORY (CAND _ENTSIZ*(.STKPTR+1)); 
INCR | FROM 1 TO .STKPTR DO 


N 
IF .SYMSTACKC.1, STK_TPINDEX] EQL 0 
THEN 


EGIN 
CANDBLK[.J, CAND_RSTPTR] = .SYMSTACK(.1, STK_RSTPTR); 
—— «J, CAND _PINDEX)] = .SYMSTACKL.I, STK_PINDEX); 
N 
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J * 1; 


END; 


CANDBLKC.J, CAND_RSTPTR) = 0; 
CANDBLKE.J, CANDPINDEX] = .DEFDEPTH; 
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POPIPIPONPYNDPNYNY 2 9 9 St SO 


Enter the candidate entry on the candidate List. 
Note that we expand the candidate List memory 
block if it is too small. 


' 
i 
i 
N 
I 
T 
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VE AMO DONO VE WN 0 ODNOA UE WN S C ONO Ew 00M 
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$ 
31 
$6 CANDS = .NCANDS + 1; 
F .NCANDS GTR .CANDLST(O) 
2034 HEN 
35 BEGIN 
36 CANDLSTCOJ = .CANDLSTCO) + 10; 
37 OLDCAND = .CANDLST; 
2038 CANDLST = DBGSGET_MEMORY(.CANDLST(O” + 1); 
2039 CHSMOVE(4*.NCANDS, .OLDCAND, .CANDLST); 
2040 DBGSREL_MEMORY( .OLDCAND) ; 
20 END; 
$08 CANDLSTC.NCANDS] = .CANDBLK; 
044 END; 
045 
4 = 
04 ' Now tear down SYMSTACK until we get to the bottom or 
048 ' until we get to a TYPE entry whose type reference 
049 ! table has not been exhausted. If no such entry is 
050 ! found, we exit the potenens match loop (with STKPTR = 
B83 0) for this hash table symbol. 
038 WHILE .STKPTR GTR O DO 
055 IF .SVYMSTACKC.STKPTR, STK_TPINDEX] NEQ 0 
036 THEN 
05 BEGIN 
058 TPINDEX = .SYMSTACKC.STKPTR, STK_TPINDEX); 
059 RPTR = .SYMSTACKL.STKPTR, STK _RSTPTR): 
960 1, SPANDEX LSS .RPTRCRSfSW_TYPREFCNT) THEN EXITLOOP; 
062 : 
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STKPTR = .STKPTR = 1; 
EN 


IF .STKPTR EQL 0 THEN EXITLOOP; 


! If we found a oa entry in SYMSTACK whose reference 
! table is not exhausted, we reset RPTR and PINDEX to 
i continue generating possible candidates from symbols 
of this type. 


SYMSTACKC.STKPTR, STK TPINDEX3 = ,TPINDEX + 1; 
TPTR = -RETRERST STSL pEyGRer ToL 

RPTR = .TPTRC.TPINDEX); 

PINDEX = ARYL STKPTR, sm peed +1; 


END; ! End of .PINDEX LEQ ... THEN clause 


! We have more pathname components to match. Decrement 
i PINDEX and stay in the pathname matching loop. 


BINDEX = .PINDEX 
IF .PINDEX LSS 0 THe PINDEX = 0; 


END; ' End of CHSEQL test's THEN clause 


If the RST entry's up-scope chain has ended, we exit the path- 
name matching loop. Otherwise, we Link up the up-scope chain 
and continue pathname matching. 


IF .RPTRCRST$B_KIND] EQL RSTSK -MODULE THEN EXITLOOP; 
PTR = .RPTRCRSTSL_UPSCOPEPTRI; 


If the up~scene pyabes | is a Type RST Entry: we set up an entry 
for it on SYMSTAC This stack entry will enable us to try 
all possible symbols of this type as the up-scope continuation 
of a type component (e.g., record or variant component). 


IF RPTRERSTSB_KIND) EQL RSTSK_TYPE 

BEGIN 
IF .RPTRCRSTSL TYPREF TBLI EQL 0 THEN EXITLOOP; 
STKPTR =. R + 
IF .STKPTR GEQ MAX stack THEN EXITLOOP; 
SYMSTACKC.STKPTR, sick i} 
SYMSTACK -STEPTR, STK” “PINE *PINDEX: 
SYMSTACK STK-TPINDEX) = 1; 
TPTR = =RPT pintastsu TYPREF TBLJ; 
RPTR = .T 
END; 

END; ! End of pathname matching WHILE loop 
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END; ! End of WHILE loop over hash table 
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! We now have a List of candidate symbols which are in the current scope 
! and which may match the pathname. Unless the List is empty call a 

! Language-specific routine to select the candidate symbol w ich best 

' matches the pathname. Note shot when we search all SET modules, we 

' do not call this selection routine until candidate symbols have been 
accumulated from all SET modules. 
I 


F (.NCANDS GTR 0) AND 
: M eeenahe. stabi NEQ SCOPESK_SETMODS OR .NEXTSETMOD EQL 0) 


BEGIN 
RAGE sOee LAURE FROM DBGSK_MACRO TO DBGSK_UNKNOWN OF 


! Handle Languages with ‘‘normal’’ scope rules--data qualification 
must be complete, or it is absent from the Language. 


“BLISS, DBGSK-BASIC, 
ASCAL, DBG$R_C, 
INRANGE, OUTRANGE }: 
OD CAND = SCOPE_RULE_NORMAL(.PATHNAME, .NCANDS, 
.CANDLST, .ARRAY_FLAG); 


PEASANT BPP PEE 


co.C9 CD 109 09 09 09 08 SIN SI NSIS SINS OO 


! Handle COBOL scope rules--data ge age de pn need not be 
complete and is resolved by COBOL scope rules. 


{DBG$K_COBOL): 
BEGIN 
SCPTR = 0; 


IF (.SCOPE_STATE EQL SCOPESK_NORMAL) OR 
(,SCOPESTATE EQL SCOPESK-NUMBERED) 


N 
SCPTR = .SCOPE; 
GOOD_CAND = SCOPE_RULE_COBOL(.PATHNAME, 
END »«NCANDS, .CANDLST, .SCPTR); 


' Handle PL/I scope rules--data qualification need not be 
complete and is resolved by PL/I rules. 


{DBG$K_PLI): 
GOOD_CAND = SCOPE_RULE_PLI(.PATHNAME, .NCANDS, .CANDLST); 


TES; 
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! If we found a valid and unique match for the pathname in this 
' scope, make CANDBLK point to that symbol and exit the scope 
: search loop. 
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SARANUVSSS ISG FERV IS SSVSALUN AS SRUE GRAN LSESSIFEAEUNSLSVSSVSEORAW SS 


PIPPI PII IPPININIPIPYDINYNIDIAIPYNINYNINYNINYINININIPYINININIPINPYIDINIPYPIPIPYPINYPINIPIPIPPUPIPINPINIPIPIPUNNPYD 


yo oe oY oY oY ot of of ot at ot ot nt ot et ha ah dh i a ek ek ek ek at ek ek ek ek ek 


POPSPIPEPSPOPINIPDPONIPIPIPUPININIPUNINIPIPIPINPIPINININOPP NPP 


a 
Be Se Oe Be Se Be Be Se Be Se Se Se Be Se Ge Ge Se Se Se Se Ge Ge Se Se Ge Se Se Ge FH Ss Se Se Se Ge Ge Se Se Se Ge Be Se Se Ge Se Se Se Se SH Se Se Se Os Ge Ge SESH Ee 

| 

' 

' 


5 
ances 1S-seo-1984 2:48:17 yaKert 


IF .GOOD_CAND GTR 0 
THEN 


gece Vv 
CIRSTACC 


~ 
~ 


BEGIN 
CANDBLK = .CANDLSTC.GOOD_CAND); 
athe 


! We did not find a valid and unique symbol. Release all candidate 
: blocks on the candidate List to the free memory pool. 

INCR I — 1 TO .NCANDS DO DBGSREL_MEMORY(.CANDLSTC.1J); 

NCANDS = Q; 


! If the — turns out not be unique, return the not-unique 
' code to KIND and a zero to SYMID; then return to the caller. 
: Otherwise, loop to locate another scope to search. 


if .GOOD_CAND EQL -1 
THEN 
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x 4 

: 

3 4 

5 & 

3 4 

; 4 

; 4 

3 4 

3 G 

3 4 

3 4 

: 4 

3 4 

3 4 

3 4 

; 4 

3 4 

3 & 

; BEGIN 

; Symi orgs = 0; 

3 KINDCO) = RSTSK_NOTUNIQUE; 

3 RETURN; 

; “ END; 

3 & 

; 0S END; 

g 34 END; ! End of WHILE loop over all scopes 
; 2208 

; $05 ! Now go through the symbol’s candidate entry to create new Data RST Entries 
3 10 ! from any Type Component RST Entries. These new RST entries represent this 
: 11 ' specific instance of data qualification. These RST entries are put on the 
3 \¢ Temporary RST Entry List. 

; 14 J = 0; 

; 15 WHILE TRUE DO 

; 18 BEGIN 

; 1 RPTR = oem Ree CAND_RSTPTR); 

3; 2218 40 IF .RPTR EQL O THEN EXITCOOP; 

: 2219 1 IF .RPTRCRST$B_KIND) NEQ RST$K_TYPCOMP THEN EXITLOOP; 

; 0 § T = DBGSGET _MEMORY(RSTSK_BATENTSIZ); 

> 2201 43 RSTPTRERST LHASA ELINK = .RSTSTEMP_LIST; 

: 45 RSTPTR RSTSLDSTPTR) = ee a DSTPTR); 

5 4 § RSTPTRERSTS$L_UPSC EPTR) = .RPTR RSTSL_UPSCOPEPTRI; 

H 5 RSTPTRURSTS$B_K = RSTSK syAL 13 

; $ ry RSTPTRCRSTSL_TYPEPTR) = .RPTRCRSTSL_TYPEPTRI; 

3 CANDBLKC.J, -RSTPTR] = .RSTPTR; 

5 8 50 J @ 4d * Vj 

; y 1 END; 

; 1 § ’ 

: § 4 ! Then make a second scan over the new Data RST Entries to fix up their 
3; 223 55 ! up-scope pointers. 
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= COOOL RE «J CAND_RSTPTR); 

PTR EQ THEN EXITCOOP: 

PTRCRST$B_KIND) NéQ RSTSK_INVALID THEN EXITLOOP; 
RS RST$K_DATA: 


KIND) = 
-CANDBLKETJ + 1, CAND_RSTPTR) NEQ 0 


RSTPTRCRSTSL_UPSCOPEPTR] = .CANDBLKC.J * 1, CAND_RSTPTRI; 
J=Jd* i; 
END; 
! If the symbol is a Line number, create the Line Number RST Entry for the 
symbol and make its address the symbol's SYMID. 
4 
4 
; 


— Dee DONO 
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BEGIN 

MODRSTPTR = .CANDBLKCO, CAND_RSTPTR; 

WHILE .MODRSTPTRCRSTS$B._ KIND] NEQ RSTSK MODULE DO 
MODRSTPTR = .MODRSTPTRCRSTSL_UPSCOPEPTR; 


if .LINE_NUM_IS_LAST 
THEN 
STATUS = DBGSLINE_TO_PC_LOOKUP(.LINE_NUM, .STMT_NUM 
-MODRSTPTR, LINESTART, L NEEND FALSE): 
CANDBLKCO, CAND_RSTPTR] = DBGSSTA_LINE_NUM_RST(.CANDBLK 
7 ~-LINE_NOM, .STMT_NUM, .LINESTART, [LINE 


, 0, CAND_RSTPTRI, 
END); 


Pick up the SYMID (RST pointer) of the symbol we found. 
RSTPTR = .CANDBLKCO, CAND_RSTPTRI; 
' If there is an invocation number, check that the invocation number was 
' applied to the inner-most routine in the up-scope chain. If that looks 
good, create an Invocation Number RST Entry for the symbol. 
IF (-PATHNAMECPTHSB_LOCINVOC) NEQ 0) AND (NOT .HAVE_NUM_SCOPE) 

BEGIN 


e inner-most routine containing the declaration of this symbol. 
the routine to which the invocation number must apply. 


ee 
“vz 


= .RSTPTR: 
gROUTPTRERSTSB_K IND) NEQ RSTSK_ROUTINE DO 
OUTPTRCRSTSB_XIND] EQL RSTSK_MODULE 


04 
405 
4 
? 
409 
410 
411 
412 


BEGIN 
DBGSNPATHDESC_TO_CS(.PATHNAME, PATHSTRING); 
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EIS SOS AUSTEN, 1, .PATHSTRING); 


= 


a = ,ROUTPTRCRSTSL_UPSCOPEPTRI; 


! Now make sure the invocation number was indeed appended to that 
routine name in the pathname. 


PNAME = .PATHVECC.PATHNAMECPTHSB_LOCINVOC) - 13; 

RNAME = DBGS$GET DST_NAME CR TPTR RST st DSTPTR}): 

IF CHSNEQ( . PNAME J> PNAMEL1), .RNAMELOJ, RNAMELI), 0) 
BE 


GIN 
DBGSNPATHDE SC TO_CS(.PATHNAME, PATHSTRING); 
5 1GNAL (DBG “MISIAVNUM, 1, .PATHSTRING); 


! ALL looks good. Create the Invocation Number RST Entry along with a 
new copy of the symbol’s RST entry if the number is non-zero. 


if .PATHNAMECPTHSL_INVOCNUM] NEQ 0 
RSTPTR = DBGSBUILD_INVOC_RST(.RSTPTR, .PATHNAMECPTHSL_INVOCNUM)); 
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! If this symbol was specified with a numbered scope (i.e. 2\X) and the 
invocation number is non-zero, create an Invocation Number RST Entry 
! for the symbol. 


' 
' 
' 
' 
Fist IF .HAVE_NUM_SCOPE AND (.NUMSCP_INVCC_NUM NEQ 0) 
RSTPTR = DBGSBUILD_INVOC_RST(.RSTPTR, .NUMSCP_INVOC_NUM) 
! And also, if the symbol was a simple syadol without any pathname qualifi- 
' cation, do the proper up-level addressing (if any) in the scope we found 
; it in to get the proper invocation number for the symbol. 


ELSE IF (.PATHNAMECPTHSB_LOCINVOC) EQL 0) AND 
vais (.PATHNAMELPTHS$B-PATHCNT) EQL 1) 


RSTPTR = FOLLOW _STATIC_LINK(.RSTPTR, .SCOPE); 
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: Now return the selected symbol's SYMID and KIND to the caller. 


Svmipf0) = ,RSTPIR; 
KINDCO) = .RSTPTRCRSTSB_KIND); 
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Release all candidate blocks on the candidate List to the memory pool. 
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if INCR 1 FROM 1 TO .NCANDS DO DBGSREL_MEMORY(.CANDLSTC.1]); 

47 

47 ! Mark this "Keteren s RST ontey os Fre Sytergnced © adding its address 

474 i to the RST Reference List (RSTSREF_LIST) only says that the RST 

475 i entry is referenced by the current Debug command. Note that we expand 

rh the List memory block if it is about to overflow. 

$78 if .RSTSREF -LISTC1] EQL .RSTSREF_LISTCOI 

t+ 4 THEN 

481 Rs tSner LISTCO) = .RSTSREF bISTeg) + 20; 

4 ¢ PUREEL TS = DAGSGET MEMORY (RST REF bd31t03 + 2); 

4 Ch ASRDV E(4*( RSTSREF CISTC1] + 2), .RSTSREF_LIST, .NEWREFLIST); 

4 DBGSREL _MEMORY(. RSTSREF LIST); 

485 RSTSREF-LIST = .NEWREFLIST; 

: END; 

488 2b oa ag ET SP STSREF _LISTCI ¢ 1; 

489 RSTSREF-LIST lASTSREF LLISTE1] + 1) = .RSTPTR; 

491 

49 ! Mark the symbol's module as being the Most Recently Referenced module. 

red : Then return. 

oe2 if -MODRSTPTR NEQ .LRUMSMOST_RECENT THEN DBGSRST_MOST_RECENT( .MODRSTPTR); 


498 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
44 45 4E 4C_ 25 00082 P.AAN: .ASCII \2LINE \ 
99009900, .0 oppor? ° 00000003 00930099 air P.AAO: .LONG ° 
53 53 45 4 4 4 if 43 838 PLAAP: ASCII <{9>(RSTACCESS\<92>\GETSYMBOL\ 


-PSECT DBGSOWN,NOEXE, PIC,2 


QOO1A -BLKB 
8 000000 0001 RoDuS sce - LONG 
00000000 00000000 00000001 000000 00020 moDuU_SCOPE: 


LONG 
00000000 00000000 00000001 00000000 00030 NORM. SCOPE: 7% 
00000000 00000000 00000002 00000000 00040 NuMB -ScoPE 2 


.PSECT DBGSCODE.NOWRT, SHR, PIC,O 
OFFC 00000 ENTRY RB AG ATO-RT GET SYMBOL . Save R2,R3,R4,R5,R6,R7,- 
SE FC40 36 CE. 9E «00002 MOVAB bOcgP).” 
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RSTACCESS 16- sep 24 AX-11 Bliss-32 V4.0-7%4 Page 54 
yO4-000 ae tae ts rik Cet Sea PARR et aes ge 435 
1c AE 6 D0 7 MOVL RSTSS T ~$COPe. SET_SCOPE 5 13446 
dates a9 att fext RSTSsEts OPE t 14eg 
57 04 af g} 15 ADOL3 TRNARE PATHVEC : 1351 
6 04 BC GA OOOIA MOVZBL aPATH : 1352 
18 AE i A74 00 IF VL ot CPATHVEC) ERO] NAMEPTR : 
AE 7C CLRO) ULI ENUM LASf t 1359 
AF D4 7 CLRL LINE LO : 1360 
58 9 DO A VL vaiBe LINE_FLAG : 1361 
5 p4 D CLRL + 1362 
0088 1 F 1$ BRW 2$ : 
08 ag FC A745 D0 ; 2$ MOVL  =4(PATHVEC)CIJ, PNAME : 
3 0 3 A MOVZBL @PNAME, + 1365 
6 1 C CMPB ? : 
SA 08 AE Oj 18 O84 ADDL PNAME, R10 : 1366 
00000000" €éF 6A 06 23 004 CMP as. (R10). P.AAN : | 
50 08 A 07 C1 0005 ADDL3 #7, PNAME, RO : 1369 
3 0 $1 05 cmPpB. sé ROD, ry : 
A 1F 00058 BLSS ; 
50 08 A 7 ci 005A ADDL He PNA , RO : 
3 60 91 0005F CMPB. Es (RO) : 
08 1B 00062 BLEQU ; 
D4 00064 3$: CLRL VALID LINE af tas ; | 
02 14 Ar E9 00066 4$: BLBC € CINE 5$ + 1370 
58 D4 O006A CLRL VALID en Whe 3 
16 AE 01 00 0006C 5$ MOVL “ Ive LIN : 1371 
OC AE 55 dO 00070 MOVL I, LINE_Rum_LOc 3 1372 
04 «AE 01 CE 00074 MNEGL #1, LINE_NUM : 1378 
4 D4 00078 CLAL : 1379 
50 06 DO 0007A MOVL #6, I : 1380 
11 0007D BRB : 
51 08 AE DO OO07F 6S: MOVL  PNAME, R1 + 1382 
2E 6041 91 00083 CMPB sD CR1J, #46 : 
12 12 00087 BNEQ 7 : 
FEFFFFFE © 8F 04 AE D1 00089 CMPL INE_NUM, #1 ; 
8 if; 0091 BNEO : 
04 AE 4 00 0009 MOVL | NUMBER, LINE_NUM : 1385) 
4 D4 0009 CLRL NUMBER : 1386 | 
6 11 00099 BRB : 1382. 
51 08 A po 0098 7$: MOVL  PNAME, R1 : 1389 
30 6041 91 0009F CMPB Ss CJ) CR1J, #48 : | 
i og AF 0 09 As ase Sane. at ; 
9 604 0 8 A CMPB OS s«C I) CR4D, #57 ; 
le 1A QOOAD BGTRU : | 
000F4240 = BF 7 D1 AF CMPL NUMBER, #1000000 : 1390 
15 14 8 BGTR ; 
51 54 OA C3 0 MULL3 #10, ER, R1 : 1392 
3 08 A p B MOVL NAME, R ; 
3¢ 6043 9a 000C MOV ZBL (1) CR$2, R2 : 
1 £0 C4 ADDL2. Pf? RI : 
54 po oA c (7 MOV -48(R1), NUMBER : 
6 1 CB BRB : 
8 D4 CD 8$: CLRL AL ID LINE FLAG : 1 9 
4 } CF BRB : 139 
| AA 50 9 F D1 9$: AOBLEQ R9, I. 6$ > 1380. 


-— 
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RSTACCESS ibese =1984 48:17 AX-11 Bliss-32 V4.0-74 
Voe°005 12-908-1 382 95:98: Aree SRC SASTACCESS O3951 
FEFFFFFE © 8F 04 AE D1 00005 108: CMPL NE_NUM, #1 
os if DD BNEO iy . 
| 04 AE 4 06 p ROVL NUMBER.» LINE NUM 
«EB a BR hee conan 
FFG2 55 i 4 p? fA 12$: ACBL 6, #1, I, 28 
A 14 Ar E9 O00FO BLBC = HAVE_LINE_NUM, 16$ 
50 04 O00F4 CLRL RR 
56 OC AE D1 000F6 CMPL | JNE_.NUM_LOC, Rb 
8 FA BNEO $ 
D F INCL oR 
10 A D FE 13$: MOVL m0, LINE NUM_IS_LAST 
Oc AE 06 «BC 0 9 Fe 319 ae #8, #8, SPATANARME, LINE_NUM_LOC 
50 046 BC 08 08 Ef 0108 EXTZV #8, #8, @PATHNAME, RO 
50 0c AE D1 O13 CPL INE_NUM_LOC, RO 
OC AE 06 BC 08 08 2 o119 CMPZV “8, #8, @PATHNAME, LINE_NUM_LOC 
02 10 AE CE $I $ BLBS §_LINE_NUM_IS_LAST, 15$ 
f D4 001 8 148: CLAL VALIB_LIRE_FLAG 
03 02% 58 1 8 15$: BLBS VALIDILINE-FLAG, 16$ 
58 04 4 16$: CLRL  NCANDS 
00000000' FF D5 1 TSTL  CANDLST 
7 12 001 BNEG ~=s«s7$ 
B DD 001 PUSHL #11 
000000006 00 1 FB 013A CALLS #1, DBGSGET_MEMORY 
00000000° EF 0 pO 00141 MOVL R T 
00000000" FF OA 00 0148 MOVL #10, @CANDLST 
58 000000006 00 v0 O14 17$: MOVE SCOBESLIST. SCOPEPTR 
Sw RRES | mh By: hn 
Rf 1 9160 BNEQ 218 
00 06 BC 08 10 ED 16¢ CMPZV #16, #8, @PATHNAME, #0 
09 01 BNEQ 18$ 
58 00000000' % O16 MOVAB BsAAO. SCOPEPTR 
01 06 BC 08 19 if o173 18$: CPLV #6, #8, @PATHNAME, #1 
60 AE 1 p 178 MOVL #1, HAVE_NUM_ SCOPE 
58 00000000' EF ; 17F ROVAB NUMB_ SCOPE, SCOPEPTR 
50 04 AC 4 C1 001 ADDL3 #4, PATHNAME, R 
0c AB 0 pO 001 mov. (RO), 12(SCOPEPTR) 
02 06 BC 0 03 FD 18F CMP2V a8 #8, @PATHNAME, #2 
Bo Bile BAP EEtvert 
15 11 001 BRB 
00000000" EF 9F 198 19% PUSHAB P.AAP 
1 DD OO1A PUSHL #1 
00028362 8F DD 1A3 PUSHL #164706 
000000006 00 Fe 1A CALLS #3, LIBSSIGNAL 
0140 3 189 08: BRW 36$ 
01 046 BC 08 08 €0 00183 21$: CMPZV #8, #8, @PATHNAME, #1 
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AX=11 Bl iss<32 V4 0-743 
DEBUG. SRCIRSTACCESS.832;1 
208 
NE_NUM_LOC, #1 
#8, #8, @PATHNAME, PATH_START_LOC 
PATH_START_LOC 
NE-NUM_LOC, PATH_START_LOC 
PATH_START_LOC 
MODU- SCOPE? 
NORM SCOPE + 
on (PRTHVEC) PATH_START_LOC], PATH_NAME_PTR 
#1, BBGSHASH_FIND_SETUP 
PATH_NAME_PT 
#1, BBGSHASH_F IND 
RO, RSTPTR 
4$ 
4$ 
RSTPTR, RPTR 
PATH_START_LOC, PINDEX 
#21 RSTPTR, RO 
#20, RSTPTR, RO 
(ROS, at 


#20 RSTPTR, RO 
(ROS, #2 


#20, RSTPTR, RO 
ROS, #3 


RSTPTR, RO 
a7 


DEX, RO 
PATHVEC)CROJ, PNAME 
RPTR) 

#1, DBGSGET_DST_NAME 
RO. RNAME 


ai, 
R1, 
33$ 
PINDEX, #1 
RSTPTR MODRSTPTR 
DRSTPTR R 
(RO), af 
(RO), MODRSTPTR 


NORM_SCOPE, SCOPEPTR 
astPTR, MOORSTPTR 
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7$: 
8$: 


39$: 


41$: 
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1er$ep-198e 18:18:26 Edeeus. SacSastactess.050; 1 


MODU SCOPE SCOPEPTR 
(SCOPEPTRS 


PTR g(S¢ PEPTR) 
RSTPTR, 12(SCOPEPTR) 
WRETR) 
RPTR), RPTR 
OT SCOPE 

“SCOPE +8 
NORM_SCOPE, MODU_SCOPE 
NORM-SCOPE, SCOPEPTR 
te U"SCOPE+8 


wor 
2°S=3°s "ae . 33" G 
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oery SCOPE, SCOPEPTR 
RSTSSTART_ADDR, NEXTSETMOD 


REG sco 
FIRST _MODPT 
SCOPEPTR SCOPE _START_PTR 


MODU_ SCOPE 
COPEPTR, RO 


ropu SCOPE 
MODU ~3tOre. SCOPE _START_PTR 


HAVE = SCOP 
PEPT 


R_SYMID 
MTD 


D, aSYMID 
_SYMID, RO 
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RSTACCESS 18-56 -1984 02:48:17 AX-11 Bliss-32 V4.0-74 Page 58 
‘voe"b06 ama eet fey DEBUG. ERCTASTACKESS 03951 . a3 
10 ac D 77 TSTL OUT_SCOPE_STATE : 1675 
| Og 93 BOs Beat 43S : 
| 10 BC Dd 0087C CLRL - @OUT_SCOPE_STATE : 1677 
14 aC D3 7F 42%:  ~=‘TSTL OyT SCOPE : 1678 
16 Be be bOkRE BFL SOUT SCoPE : 1680 
50 000000006 5 D0 § 7 43$: MOVL  RSTSREF List, RO : 1688 
60 4 Ad D1 : CMPL = «& 29) ,_ TRO) : 
4 iF BNEG 44 ; 
60 14 ¢ 94 ADDL2 #20, (RO) + 1691 
7E 6 2 C1 00397 ADDLS #2, (RO), =(SP) + 1692 
000000006 00 1 Fe 0 8 CALLS #1, DBGSGET_MEMORY : 
AE 0 DO OO3A MOVL RO, NEWREFLTST : 
40 AE 000000006 90 D0 0 A6 MOVL.  RSTSREF_LIST, 64(SP) : 1693 
51 Ar 4 Ci AE ADDL3 #4, 64(SP), R1 : 
5 1 pO 00 B MOVL 4), RO : 
50 4 C4 00386 MULL , Ro : 
50 8 ¢0 0389 ADDLe = #8, ; 
70 BE 40 BE 0 038 MOVCS RO. @64(SP), @NEWREFLIST : 
40 AE dD 003¢ PUSHL  64(SP) + 1694 
000000006 00 01 FB 003¢ CALLS #1, DBGSREL_MEMORY : 
000000006 00 70 AE DO 00 cc MOVL NEWREFLIST, RSTSREF_LIST + 1695 
50 000000006 00 DO 00304 448:  MOVL  RSTSREF_LIST, RO + 1698 
4 Ad D6 00 DB INCL  4(RO) : | 
51 4 Ad DO 0030 MOVL 4 (RO), R1 : 1699 
04 A041 20 AE 00 OO3E MOVL  RSTPTR, 4(RO)CR1) : 
04 O03E RET : 1637 
50 D4 OO3E9 45$: CLRL RO : 1707 
6C AE 58 01 003EB CMPL  SCOPEPTR, SCOPE_START_PTR : 
02 12 OO3EF BNEG 46$ : 
D6 O03F1 INCL _——RO ; 
74 AE 50 00 00 F3 46$: MOVL RO, REG SCOPE : 
50 AE 04 AB DO 003F MOVL  4(SCOPEPTR), SCOPE_STATE : 1713 
03 01 50 AE CF OO3FC CASEL SCOPE STATE. #1, #3 £1713 
008F 003A 0019 0008 00401 47$: wOR 48$-47$,- 3 
49$-47$.- : 
Hares te 
00sec = CE 08 AB 7D 00409 48%: mOVO  &(SCOPEPTR), SCOPE + 1724 
50 0090 CE 00 0040F MOVL MODRSTPTR, RO : 1726 
20 28 AO E9 00414 BLBC «©=«._:«&0(RO),,_ S48 : 
1A 11 00418 BRB 50$ ; 
0088 CE 9F O041A 49S PUSHAB NUMSCP_INVOC_NUM : 1739. 
099 CE OF O41 PUSHAB SCOPE : 
0098 CE 9F 004 SHAB MODRSTPTR : 
0C AB DD 004 $ PUSHL 1 (SCOPEPTR) : 
0000v CF 04 FB 004 CALLS #4, DBGSSTA_NUMBERED_SCOPE : 
008¢ CE D5 004 t TSTL SCOPE > 1741 
04 13 004 BEQL i$ ; 
SC oA 1 p 434 50$:  MOVL a HAVE_SCOPE : 
0OAg 1 004638 51$: BRW 63$ : 1748 
08 aE 6 po 438 52$:  MOVL (PATHVEC), PNAME : 175 
5 04 BC A 00435 MOVZ7BL @PATHNAME. RO > 1754 
50 046 BC 08 08 if Ad CMPLV #8, #8, @PATHNAME, RO ; 
02 04 BC 91 00448 CMPB  @PATHNAME, #2 ; 1755 
12 0044F BNEQ 53$ : 
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DEBUG. SRCIRSTACCESS.B32;1 


TSTB PNAME 

BEQL 

CMPB os e 
BNEQ 1$ 


ROVZBL @PATHNAME , RO 
PUS 4(PATHVEC) CROJ 


CALLS a. DBGSSTA _LOOKUP_GBL 
MOVL RO, RSTP 

BEQL 

MOVL igh asYMID 

ADDL ‘ 0 ster TR, RO 

MOV ZBL KIND 

TSTL 1scb STATE 

BEQL 

MOVL aur _ Score STATE 
TSTL out $3 

BNE 


CLRL © @0UT_SCOPE 

CMPL §NEXTSETMOD, RSTSSTART_ADDR 
TSTL  NEXTSETMOD 

#40, NEXTSETMOD, RO 


( 
ADDL3 #16, NEXTSETMOD, RO 
MOVL R05, NEXTSETMOD 


MOVL NEX ibs dh ah MODRSTPTR 
MOVL MODRSTPTR, SCOPE 
TSTL wets ETMOD 


EQL 
ADDL3 #16 NEXTSETMOD RO 
MOVL (ROS, NEXTSETMOD 
ADDL3 #40, NEXTSETMOD, RO 
BLBC (ROS, 60$ 

TSTL DRSTPTR 

BEQL $ 

MOV #1, HAVE SCOPE 


L 
TSTL NEXTSETMOD 


MOVL (SCOPEPTR). + SCOPEPTR 
BLBS §-HAVE_SCOPE 

BRw 8$ ~ 

MOVL MODRSTPTR R2 

BBS 40(R25, 66% 

CLRL = “(§p) 

PUSHL 

CALLS DBGSRST_BUILD 

iste 0 ne _SCOPE_STATE 

MOVL SCOPE _STATE, @OUT_SCOPE_STATE 
TSTL out T_SCOPE 

BEQL $” 


MOVL SCOPE, @0UT_SCOPE 
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eee fb ape 
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50 20. «AE 14 (1 44 
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OA 13 th 
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0 60 91 sith 
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48 AE D Bo eo8 
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59 20 AE 00 00597 
01 14 AY 91 00598 
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48 AE 59 01 O05A1 
07 is O5A5 
48 AE 20 AE 00 005A7 
06 11 QOSAC 
59 10 AY 00 ths 
1) 8 8 
38 = AE 38 E 00 00584 
D 11 00589 
05 74 =AE ED gee 
78 «AE 4 AE DO BF 
1 AE 0D C4 
000000006 80 01 4 C7 
A 1 AE E C 
20 AE & AE 00 Dd 
4 AE * Dd 
O& 11 DA 
18 AE DD ws 
pocoeones 00 1 4 OF 
0 AE 0 D £6 
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75$: 
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AX=11 Bliss-32 V4.0-74 


VE_LINE_NUM, 69% 
RST _MODPTR 
FIRST_MODPTR 
§P) 


N 
, BBGSLINE_TO_PC_LOOKUP 
irs) SATPTR 

AT 1$ 


#4, SATPTR, RO 
(RO), LINESTART 


#12, SATPTR, RO 
(ROS, RSTPTR 

#8, SATPTR, RO 
(Rb), LINESTART 


#20, —_—e RO 


(ROS, #2 

73$ 

#20, RSTPTR, RO 
(ROS, #3 

77$ 

LINE _LEX_PTR 


RSTPTR, RPTR 
Q<RPTR) , wi 


RPTR, LINE_LEX_PTR 
RSTPTR, LINE_LEX_PTR 
16(RPTR), RPTR 
SAIPTR, SATPTR 


REG_SCOPE 
LINE 


79% 

LEX_PTR, REG_LINE_LEX_PTR 
NAMEPTR 
#1, DBGSHASH F IND. SETUP 
LINE_NUM_IS CAST, “818 
LINE“LEX"PTR, RSTPTR 
LINEZLEXZPTR 
NAMEPTR 
#1, DBGSHASH_F IND 
RO, RSTPTR 
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QOAO CE46 
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85$: 


86$: 


87$: 


88$: 
89$: 


90$: 


o 
—_ 
bed 


oo 
nm 
PM 


; 4csp), #1 
TYPE_FLAG, 85$ 
a64(SP), &7 
SET_SCOPE, 86$ 
a64TSP), #2 
a64(SP), #3 
80$ 


STKPTR 
TKPTR, #100 

SYMSTACKCSTKPTRI 

RPTR, a(SP)+ 
SYMSTACK+4CSTKPTRI, R4 


HAVE _LINE_NUM, 87$ 
BINOEX. LINE _NUM_LOC 


HAVE NUM SCOPE, 89% 
PINDEX, #1 
89$ 


PINDEX 

PINDEX, RO 

ag (PATHVEC) CROJ. PNAME 
PINDEX 

: $ 

(PATHVEC), PNAME 


12( 
#1, DBGSGET_DST_NAME 


@RNAME 

#1, RNAME, -(SP) 
* PNAME. =(SP) 

* a(SP)+, #0, RO, a(SP)+ 


EX, (R4) 
#8, @PATHNAME, PINDEX 


PTR), #10 


reef 
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F 6 
16-Sep-1984 48:17 AX-11 Bliss<-32 v4.0-74 Pa 2 
1o=ge8= 1382 et ey DEBUG. SRCIRSTACCESS 83 31 ve 485 
F7 13 00687 BEQL 928 ; 
20 AE g 689 MOVL RSTPTR, SYMSCOPE + 205 
4 fs ; ets CAPs 64(SP5, at + 205 
0 ci ¢ ADDL3 #16, RSTPTR, RO + 2055 
60 DO 006C9 MOVL. (ROS, SYMSCOPE : 
14 gi CD 94$:  ADDL3 #20, SYMSCOPE, RO + 2057 
60 1 0060 CMPB (ROS, #7 : 
le 60 BNEQ 95 : 
10 C D ADDL3 #16, SYMSCOPE, RO : 2059 
60 00 soc MOVL (ROS, SYMSCOPE : 
50 AE D} 660 95$:  CMPL SCOPE STATE, a > 2068 
04 13 0064 BEQL 6 : 
10 AE €E9 00666 BLBC LINE NUM IS_LAST, 97$ : 
14 ci O6EA 96$:  ADDL3 #20, ~SYMSCOPE, RO + 2071 
60 91 OO6EF CMPB Ss (ROS, #1 : 
0B 13 006F2 BEQL ; 
10 Ci 006F4 ADDL3 #16, SYMSCOPE, RO : 2072 
60 00 006F9 MOVL (ROS, SYMSCOPE : 
EB 11 O06FD BRB : 
ogc CE 00 OOGrE 97$: MOVL SCOPE, SCPTR + 2079 
80 CE D4 00 05 CLRL —DEFDEPTH : 2080 
01 DO 00709 MOVL #1, IN_SCOPE > 2081 
2c «(AE CO 99700 98$: CMPL § SCPTR, “SYMSCOPE + 2084. 
1€ 13 00712 BEQL 1008 : 
14 €1 00714 ADDL3 #20, SCPTR, RO + 2085 
60 91 00719 CMPB ss (ROS, F 
05 12 0071C¢ BNEQ  99$ ; 
58 AE D4 OO7IE CLRL _—siIN_SCOPE : 2088 
OF 11 00721 BRB 1008 + 2087. 
10 C1 007 399$:  ADDL3 #16, SCPTR, RO + 2092 
60 00 00728 MOVL (ROS, SCPTR : 
0080 CE 06 0072C INCL DEFDEP ; 2093 
DB 11 007 0 BRB 98$ + 2082 
14 AE €9 00732 1008: BLBC HAVE_LINE_NUM, 103$ : 2101 
58 =AE ES 007 BLBC IN_ SCOPE, : | 
19 AE €E8 0073A BLBS LIRE_NUM_IS_LAST, 103$ ; 
58 = AE «(D4 007 CLRL _—IN_STOPE : 2104) 
20 AE 00 0741 MOVL RSTPTR SCPTR + 2105 
14 5 0746 101$: ADDL3 #20, SCPTR, RO : 2106 
60 91 00748 CMPB (ROS, a : 
18 13 074 BEQL 103$ ; 
2c «AE 1 007 CMPL  SCPTR, LINE_LEX_PTR : 2108 
6 if} 7 BNEQ 1028 ; 
D0 007 MOVL #1, IN_SCOPE > 2111 
: 11 00758 BRB 10$$ - : 2110 
10 C1 .0075D 102$: ADDL3 #16, SCPTR, RO + 2115 
60 0 7% MOVL (ROS, SCPTR ; | 
DE 1 7 BRB 101$ ; 3106 
8 AE €8 00768 103%: BLBS IN SCOPE, 1048 : 21 
009F 31 0076C BRW 08$ ; 
1 8 26 104$:  ASHL #1, STKPTR, -(SP) > 2132 
: CO 00773 ADDL2 #2, p ; 
FB 00776 CALLS #1, DBGSGET_MEMORY ; 
‘50 DO 00770 VL —sRO,:-« CANDBLK ; 
A 04 44 CLAL J : 3133 
0 D4 00783 CLRLd > 21384 


ee 
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isse32 Ve.0-742 me) 
-11 BL jastaccess .839; 
6 it) He tg ET : 
— * 984 art DEBU " 2136 
——_____—— 18-sep- 1984 agnpeth .< 
-———_——_——- BRB Wee acnoel) : 2139 
ra a eit : 
ass “GBR Re. sca ; 2140 
iF 7 tga He: gaat $f ; 
cokes Soa) pays pe 
y  OE RR Pie Uh tr 3 
PU )¢ + 2146 
51 at E40 ii ay th ena tend 1058 
O0A4 —E %3¢ OO7A INCL Q STKPTR, «bj : 2147 
i PS QOFAP 1068: PUSHAG ScANDBLKLY . : 
78 LRL ANDBLK, R $2154 
50 BE4A 7F ; rT} : 
D4 v0 OSE Oe Gore? movaa fngEda a : 135 
30 AE 604A re Bre wart BSaeee = } 
50 51 D it | tka tT, : 2158 
61 — fl 4 +1434 CHPL NCANDS. “(RO) : 9159 
50 ovovo00" fF bd 07D Bled, 1078 (RO) ; 
60 5 15 00 MOVE. RO. OLDCA (SP) ; 
te te 
60 0 70¢ Ls § : 
* 66 0 i aft) nowt ; ams se 
7E 006 00 6 7E ve3 a : 5178 
00000000" gf 2 rs Ors PUSHL OL ip DOGSREL POT ENCANDS? : et? 
0000006 - 30 080 " BLEG TACK +6 * 2180 
moa ad E | ae a: i a 
, A6 CE46 1 Q 1 : 
2 15 i$ asih ROVE a0, AS TACKLSTKPTR] EX Alem 
22 90 ones RON BSP) RETR oom) TPIND : 313 
ono “96 BO 90835 gore. tds : 5188 
9 E STKP : 
an 10 ge $3 8088) 1098: pect 108s ; 2196 
* : 
44 AE 1 09 03 8 1108: peal STASTACK*GESTKPTRY, : 3197 
PU PIN é 
00A6 cede r 0 9 oe SRtRPTRY. TPT > 2199 
01 A i, VL TPIND J, RPTR : 
48 AE 1c «(Ad . 4 love STPIRERG], APTA * 9007 
9€ 68 AE 73 ost 4¢ PUSHAQ ayes PINDEX : 308 
39 one CEas PF é INCL” PINDEX men ; 931 
3¢ NDEX, 
AE H D6 1118: SOBGEQ PINDE 1 
24 De p thes = SORBTRD. @ 
03 tM OBS Bkae aos. = thed 
01 14 A 


—} 


<z 
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g s 6 
R 16-Sep-19 ? AX=11 Bliss-32 v4.0-74 Pa 
vi Hat a eree=13he P5856 «| FoR ade Shclastackess gs. v3 
"A 1 OL 43 s«1138 ; ; 
53 10 a9 p of Hin 16(RPTR), RPTR : 3218 
7 4 A e CMPB (RPTR). #7 t 2226 
3 1 BNEQ 5$ : 
an en) 1 TSTL RPTR) + 2229 
B 1 7 BEQL 5 : 
é D6 79 INCL  STKPTR : 3230 
00000064 8F D | CMBL STKPTR, #100 ; 2231 
FD4 3 113$: BRW 8 ; 
= 00A0 cE4G f z 1148: PUSHAG SYNSTACKESTKPTR] ; 2232 
i 0046 CEG r F PUSHAG  § SYMSTACKS6¢ STKPTRI ; 2233 
. 00A6 ceKg 4 98 PUSHAG SIMSTACK*GESIKPTRD : 2234 
68 3 1¢ «(Ad 09 AQ MOVL  28(RPTR), TPTR : 3335 
5 os BE p p A MOVL a@TPTR, RPTR t 2236 
FDSA 31 OO8A9 115$: BRW 84$ : 1974 
58 DS OOBAC 116$: TSTL NCANDS > 2251 
03 14 OO8A BGTR 118$ : 
FAGE 31 0880 117$:  BRW 37$ : 
04 50 AE D1 00883 118$: cHPL SCOPE STATE, 6 ; 2252 
28 ag 8 0889 TSTL § NEXTSETMOD : 
52 00000000' EF v6 aD8ac 1198: OVE. CANLST, : 2267 
OA 36 000000006 tf 8F 008es "  CASEB OD esta. ’ ANSUAGE.. #0, #10 : 3382 
0027 0016 0016 0016 008CD 120$: WORD  121$-120$,- ; 
0016 0016 004D 0016 00805 121$-120$.- : 

0016 0016 0016 00800 13-1 Os. ; 
121$-120$.- : 
125$-120$.- : 
121$-120$,- 3 
121$-1208.- ; 
121$-120$,- 3 
121$-120$.- : 
121$-120$ : 

18 pp OO8ES 121$: PUSHL ARRAY. FLAG : 2267, 

3 DD 00 EB PUSHL NCANDS : 2266 
04 AC ODD OOBEA PUSHL PATHNAME : 
0000v CF 94 Fe ED CALLS #4, SCOPE _RULE_NORMAL 

26 AE D4 OOBFS 122%: CLRL  SCPTR : 3 75 

01 6 AE D4 t? CHPL PE_STATE, #1 ; 2276 

02 50 AE iH FD CHPL SCOPE. STATE, #2 ; 2277 

123$: MOV SCOPE, SCPTR : 2279 

alien o0gt AE BD 3 1388: PUSHIL SCPTR : 3583 
53 DD 0090C PUSHL R : 
DD 009 PUSHL  NCANDS : 

o000v CF 06 Og PB boat CAS #4. SCOPE_RULE COBOL oom 
: C f 91 BRB 126$ hehe : 


a 
| pare $$ 


EE 


50 
50 
50 


50 


50 
51 


‘ 
1b-se =1984 02:48:17 AX-11 Bliss-32 v4.0-74 
1 =3007 1382 95:98:37 BEBUG. ERCTASTACKESS 03551 
5 DD OO9IA 125%:  PUSHL R2 
DD 0091¢ PUSHL NCANDS 
06 AC 0D gif PUSHL PATHNAME 
0000v CF FB 009 CALLS #3, SCOPE_RULE_PLI 
4C OAL p 926 126$: MOVL R tA 
50 4 AE D 3 ¢ BOVE lets CAND, RO 
30 AE 00000005" FF 4b p 9 MOVL S¢ANBLSTERON, CANDBLK 
@0 1 009 BRB 131$ 
ps 938 127%:  CLRL 
00000000" FF4s oD 3 F 128% + arANOLSTCII 
000000006 99 Fe 946 CALLS #1, DBGSREL MEMORY 
: F3 00940 129$: AOBLEQ NCANDS, I, 128$ 
D4 00951 CLRL. = NCA 
FFFFFFFE © 8F 4C Ar D1 933 CMPL ; OD _CAND, #1 
03 13 00958 BEQL $ 
F9C1 31 00950 BRw $ 
08 BC D4 009 130$: CLRL  aSYMID 
0c BC 09 DO 0096 MOVL #9, @KIND 
04 0096 RET 
SA b4 1318: CLRL oJ 
30 BE4A 7F 132$: PUSHAQ @CANDBLK(J) 
59 9E 09 MOVL a(SP)+, RPTR 
51 13 009 BEQL si 
OA 4 AD 9; CMPB =-20(RPTR), #10 
48 12 009 BNEQ 1338 
07 DD PUSHL @# 
000000006 00 gi FB CALLS #1, DBGSGET_MEMORY 
0 A 0 D MOVL RO PTR 
0 BE 000000006 00 D0 00986 MOVL  RSTSTEMP_LIST, @RSTPTR 
000000006 00 AE 00 MOVL_ RSTPTR, RSTSTEMP_LIST 
0 20 AE oc C1 ADDL3 #12, RSTPT 
60 0c ad DO MOVL. 12(RPTR), (RO) 
20 A 10 ¢1 ADDL3 #16, RSTPTR, RO 
6 10 a9 DO MOVL \ecRPTR) (RO) 
20 AE 14 ci ADDL3 #20, RSTPTR, RO 
60 94 CLRB (ROS 
20 AE 18 C1 ADDL3 #24, RSTPTR, RO 
60 18 Ad b0 24(RPTR), (RO) 
30 BESA 7F PUSHAQ @CANDBLK(J) 
9E 24 AE 00 MOVL  RSTPTR, a(SP)+ 
5A 06 INCL J 
A611 BRB 132$ 
SA b4 1338: CLRL 
30 BE4A 7F 134$: PUSHAQ @CANDBLK(J) 
20. AE 9E 09 MOVL a(SP)+, RSTPTR 
6 1 BEQL 13 4 
20 AE 4 ci ADDL3 #20, RSTPTR, RO 
9 TSTB —- (ROS 
1 BNEQ 1 6s 
20 A 4 ADDL3 #20, RSTPTR, RO 
6 06 MOVE. #6, (RO) 
30 A 6 ADDL3 @ CANDBLK R1 
3 614A MOVA (Ri)C], R 
62 p MOVL (Re), rb 
BEQL 135% 


Pee Se See Se Se Ge Se Se Se Ge Se Ge Se Se Ge Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Ge Ge Ge Ge Se Fe Be Fe Fe Fe Fe Se Ge Fe Fe Fe Sa Se Fe Se 
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ras | 
51 20 A 10 C1 OO9EF ADDL3 #16, RSTPTR, R1 
af 20 D0 34 MOVL RO, (RI) 
A 06 9F7 135$: INCL 
a.) 9F9 BRB 1348 
53 1 AE €9 009FB 136%: BLBC NUM_IS_LAST, 139% 
0090 F 3 BE D6 OFF MOVL at rie MODRSTPTR 
00 ¢ B AOS 137$:  MOVL DRSTPTR RO 
1 14 «OA AOA CMPB : (RO), a#i 
08 1 A i BEQL s 
0090 CE 10 AO 00 00a1 MOVL 19¢R0), MODRSTPTR 
ED 11 O0A1 BRB 137$ 
a ps A18 138$: CLRL  =<(SP) 
098 CE 9F OOAIA PUSHAB LINEEND 
OAO CE OF Ale PUSHAB LINESTART 
09C CE DD OOA PUSHL MODRSTPTR 
10 AE DD OOA : PUSHL STMT_NUM 
18 AE DD OOA PUSHL LINE~NUM 
000000006 00 96 F A CALLS #6, BBGSLINE_TO_PC_LOOKUP 
0084 CE DO OOA MOVL RO, STATUS 
0094 CE DD OOA PUSHL LINEEND 
009C CE DD QOA PUSHL LINESTART 
08 AE DD OOA4 PUSHL STMT “tin 
19 AE DD O0A4 PUSHL 
4 BE DD O0A46 PUSHL ac AND 
0000v CF 9 FB OOA49 CALLS @ DBSSSTA LINE_NUM_RST 
30 —«BE 0 DO 00A4 MOVL RO. @CANDBLR 
20 AE 30 BE DO OOAS2 139%:  MOVL ac Anne K, RSTPTR 
00 06 BC 08 10 €D 00A5 CMPZ2V #16, #8, @PATHNAME, #0 
03 12 00A5D BNEQ 408 
OOAS 31 OOASF BRW 146$ 
03 A 59 OA62 140$:  BLBC HAVE _NUM_SCOPE, 141$ 
OOA2 31 O0A66 BRW 
52 AE DO 00A69 141%:  MOVL sien ROUTPTR 
02 14 A2 91 OOA6D 142$: CMPB (ROUTPTR), 
20 13 00A71 BEQL 
01 146 A2 91 00A7 CMPB 25(ROUTPTRD, rT 
21 12 OOA7 BNEQ 3$ 
009¢c CE 9F O0A79 PUSHAB PATHSTRING 
04 AC DD OOA7D PUSHL THNAME 
000000006 00 02 FB OOA CALLS DBGSNPATHDESC. TO_CS 
009¢ ce DD OOA PUSHL PA 2 
1 DD OOA PUSHL 
00028¢90 8F DD OOA PUSHL 167056 
000000006 99 03 FB A9 CALLS 43 LIBSSIGNAL 
10 A2 DO OOA9A 143%: MOVL Ve{ROUTPTR) , ROUTPTR 
CD 11 OOA BRB les 
50 06 Bc 08 10 EF QOOAAO 144%: EXTZV #8, @PATHNAME, RO 
08 AE FC A740 DO OOAA6 MOVL nA ATHVEC) ERO. PNAME 
OC A2 OD OOAAC PUSHL 1 (ROUTP 
000000006 00 gi FB AAF CALLS RO GsGET _DST_NAME 
C AE 0 p AB6 MOVL R * RNAME 
08 BE 9A OOABA MOVZBL @PNAME, R1 
50 C BE 9A O0AB MOVZBL @RNAME, RO 
54 3c. OCA 1 C1 OOAC ADDL 1, RNAME, R4& 
55 08 A 1 cI AC ADDL3 #1. PNAME. RS 
50 00 6 1 20 OOACC cMPCS «RV. (RS), “at RO, (R4) 
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¥O-500 aaa 1 96:38: b6 Peau. enC SRSTACLESS 03551 oe 48) 
21 13 OOAD BEQL 1458 : 
009¢ CE «9F O0AD PUSHAB PATHSTRING + 2428 
04 AC OD OOADS PUSHL . ATHNAME : 
000000006 00 02 FB OOAD CALLS #2, DBGSNPATHDESC_TO_CS : 
009¢ DD OOAE PUSHL PATHSTRING + 2429 
DD OOAE PUSHL ; 
00028¢90 8F DD OOAE PUSHL #167056 ; 
000000006 00 3 Fe AE CALLS #3, LIBSSIGNAL : 
50 04 AC 4 C1 OOAFS 145$: ADDL3 #4. PAT , RO + 2636 
60 b3 AFA TSTL (ROD : 
41 AFC BEQL 151$ : 
52 04 AC ¢: C1 AF ADDL3 #4, PATHNAME, R2 ; 2438 
2 DD 00B0 PUSHL (R20) : 
O€ 11 008 RB 148$ : 
14 60 AE €9 00807 146$: BLBC HAVE_NUM SCOPE, 149$ : 2647. 
0088 CE OD 0808 147$: TSTL | NUMSCP_IRVOC_NUM : 
O& 13 OOBOF BEQL 49$ : 
0088 CE od 00811 PUSHL | NUMSCP_INVOC_NUM + 2649) 
24 AE DD 00B15 148$: PUSHL RSTPTR : 
F201. CF 02 FB 00B18 CALLS " DBGSBUILD_INVOC_RST : 
1C 11 00B1D BRB : | 
00 04 BC 08 FD OBIE 1498: CMPZV #16, #8, @PATHNAME, #0 + 2456) 
01 04 BC 08 08 €D 00B27 CMPZV Ht #8, @PATHNAME, #1 : 2657. 
10 12 00B2D BNEQ «6-151 ; | 
008C CE Dd OOBeF PUSHL SCOPE : 2659. 
24 A DD 00833 PUSHL ag : 
0000v CF 9 FB 0B CALLS #2, FOLLOW_STATIC_LINK : | 
20 AE DO 00838 150$ VL — RO,._- RST : | 
08 BC 20 AE DO OOB3F 151$: MOVL_ RSTPTR, a@SYMID > 2464 
50 20 AE 14 C1 00B44 ADDL3 #20, RSTPTR, RO 3 2665 | 
0c eC 60 9A 00B49 MOVZBL (ROS, aKIND : | 
52 D4 00B4D CLRL + 2470 
OF 11 O0B4F BRB ; 
00000000'FF42 OD 00B51 162%: PUSHL @CANDLSTCI) ; | 
000000006 00 gi Fe 085 CALLS , DBGSREL MEMORY ; | 
E 38 8 F3 OOBSF 153$: AOBLEQ NCANDS, I, T52$ : | 
50 000000006 00 D0 00863 MOVL  RSTSREF List, RO : 2478 
60 04 AO 01 OOB6A CMPL 4(RO), TRO) : 
39 \2 08 BNEQ 154$ : 
60 14 CO 008 ADDL2 #20, (RO) ; 248) 
7E 60 2 C1 0087 ADDL3 #2, (RO), -(SP : 2482. 
000000006 00 1 FB 0087 CALLS #1. DBGSGET MEMORY ; 
70 AE dO 0087 MOVL RO. NEWREFLTS : | 
57 000000006 DO 0088 MOVL  RSTSREF LIS . > 2483 
20 04 A? 00 008 MOVL 4(R7), R : 
0 4 C4 008 MULL2 #4, Rb ; 
5 ¢9 08 ADDL2 #8. R : 
70 BE 67 089 MOVES RO. (R7), @NEWREFLIST : 
DD 0089: PUSHL R > 2684. 
00000006 00 01 FB OOB9A CALLS #1, DBGSREL_MEMORY ; 
00000006 0 79 AE 00 OOBAI MOVL #$NEWREFLIST, RSTSREF_LIST > 2685 
000000006 00 DO OOBA9 1548: MOVL  RSTSREF_LIST, RO : 2488 
4 AO 06 0088 INCL 4(R0) : 
51 4 AO DO 0088 MOVL  4(RO), R1 > 2489 
4 A041 0 AE 00 0088 MOV RSTPTR, 4(RO)CR1) : 
000000006 00 0090 CE 01 O0BBD CMPL § MODRSTPTR, LRUMSMOST_RECENT > 2495 


—_- ---—---- 


ie 


a 


; Routine Size: 


1B-sen-1986 92:48: : mye! OLigse82 Ve 0-762 


000000006 00 


0090 Fo bb ae Hi: Push 


nOORSTTR 
Be CALLS #1, DBGSRST_MOST_RECENT 
D5 1558: RET 


3028 bytes, Routine Base: DBGSCODE + 0388 


2498 
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yO4 008 1e-8ep-19 4 95:98:35 PEBUG.eACSASTACCESS O$9;1 . a} 
tS 8 GLOBAL ROUTINE DBGSSTA_GETSYMOFF (ADDR, P_SYMID, P_BIT_OFFSET) = 
go 84 FUNCTION: 
1 8¢ This routine accepts a address descriptor, and attempts to symbolize 

S¢ 0 it as a symbol name plus offset 

8 It always returns the best possible symbolization; if the address can 

84 5 be oyqbe! {gee by more than one symbol name with the same offset, then 

85 § the first is chosen to be the best. 

Hi 8 The routine accepts an optional print flag (the default being no print). 

88 09 The best symbolization is returned in the form of symid and offset. If 

89 \9 output is specified (as in the SYMBOLIZE command), then the following 

ay : occurs: 

9 ig 1. If the address is found to be an instruction address, then the 

9 14 the routines it calls symbolize it as either a label (exact match 

94 15 only), or as a Line number and byte offset from the start of the 

95 1g line. This information is printed, along with the routine name plus 

+] \ byte offset from the beginning of the routine. 

98 19 2. If the address turns out to be a data address (that is, if it turns out 
399 0 not to be in any routine'’s instruction address range), this routine will 
400 1 see if it corresponds to ry, Set’ data item. If so, that data symbol 
401 ¢ and an offset from it will printed, and the symid and offset will be 
40 returned. Symbolization will not be done to array elements or record 
40 4 components=-only the outer level static data item will be returned as 
404 5 as the symbol. If the address is a stack address, then the VAX call 
ret $ stack is searched for a match. Or, if the address is a register 
407 8 bound to that register, If no symbol is found at all, then the syatd 
408 9 is set to zero, and the absolute virtual address is returned as the 

09 0 offset. A message saying that no symbolization was possible is 

1 is displayed, and the routine returns false. 


DBGSSTA_GETSYMOFF is called to symbolize addresses only in certain cir- 
cumstances. One is when the user program has faulted somewhere (with an 
access violation, for example) and the fault address must be symbolized 
and displayed in an understandable form. Another is when VAX machine 
instructions are displayed symbolically (through E/1 or STEP, for exam- 
pie? and operands must be displayed in as symbolic a form as possible. 
BGSSTA_GETSYMOFF is always called during execution of the SYMBOLIZE 
command, and output is always done in that case. 


INPUTS: 
LY 


oe a a a ts —§ 


WN 0 OB WO UE WN OC OOO FUN Oo 


DDR - The address of an address descriptor (byte and bit offset). 


P_SYMID - The address of a longword location where the ‘symbol identi- 
fier’’ should be returned. The ‘‘symbol identifier’’ is a value 
which uniquely identifies the returned symbol. This value is 
not directly understood outside the symbol table access rou- 
tines. but can be passed to yer tous other symbol table access 
routines to extract information about the symbol. 

P_BIT_OFFSET = The address of a longword location where the bit offset from 
the SYMID symbol should be returned. 


An optional print flag may be specified. The default is FALSE = no print. 
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twat al al al al al al al al ah sh sh sb sh sh ah sh sh Ab beh eb ah Ah dh Ab sd edd dk dh sh ad ah ahah ah ad alae eal eal eal sala ealea legless le lew Www Ww 
a a a a ee ee ee ee ee ee ee ee ee a ee ee ee ee a a ed ed ee ed 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
! 
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OUTPUTS: 

SYMID = A Symbol identifier which uniquely identifies the symbol 
which best symbolizes ADDR is returned to SYMID. This symbol 
identifier can then be pessec to any symbol table access rou- 
tine which accepts a SYMID parameter. If no suitable symbol 
can be found, a zero is returned to SYMID. 


OFFSET = The bit offset of ADDR relative to the SYMID symbol is 
returned to OFFSET. If (SYMID) is zero, this 
offset is simply the original address descriptor. 


The routine returns true if symbolization was possible; otherwise it 
returns false. 


BEGIN 


ILTIN 
ACTUALCOUNT 
ACTUALPARAME TER; 


P_SYMID: REF RSTSENTRY, 
i = .P_BIT_OFFSET; 


P 
ADDR: REF DBGSADDRESS_DESC; ! Pointer to address descriptor 
Loc 


690969 090909 09 SI NINN NINN NINO PAA APO 


AL 
PRINT_FLAG; ! Flag for print/no print. 


! If the caller wants output, then the fourth parameter will be true. 
Otherwise, the fourth parameter will be false, or not at all. 


if ACTUALCOUNT() GEQ 4 
PRINT_FLAG = ACTUALPARAMETER (4) 
PRINT_FLAG = FALSE; 


Be Oe Se Se Seo Se Se Se Se Se Se Se Ge Se Se Ge Ge Se Se Ge Se Se Se Fe Ge Ge Fe Se Ge Se Se Ge Ge Se Se Ge Ge Ge Se Se Ge Ge Se Se FH Se Se Ge FH See Se Se Se Se See 
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: See if the address is a register address. 
if DBGSSYMBOLIZE_REG (.ADDR, SYMID, BIT_OFFSET, .PRINT_FLAG) 
RETURN TRUE; 


See if the address is a static address. 
if DBGSSEARCH_SAT (.ADDR, SYMID, BIT_OFFSET, .PRINT_FLAG) 
BEGIN 


— 
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¥be-000 12-8081 884 et Bey YpeaUG. SRC ASTACCESS 03951 (13) 
} At this point, we have found a module, but there is no symid we could 
locate, so try global search to locate more info. 


if .SYMID EQL 0 
THEN 


IN 
-PRINT_FLAG THEN DBGSPRINT_ CONTROL (DBGS$K_PRT_RESET) 
NT_FLAG) 


IF 
c DBGSSEARCH_ GLOBAL (.ADDR, SYMID, BIT_OFFSET,~. 
RETURN TRUE 


om 
maw 


END 


! We have found a good a in a given module, for SYMBOLIZE command, 
! we print a bit more info for the symbol declared as global. But we 
do not want the global symid. 
ELSE 
IF .PRINT_FLAG 
THEN 
BEGIN 
LOCAL 
TMP_SYMID, TMP_OFFSET; 


DBGSPRINT CONTROL (DBGSK_PRT_RESET); 
DBGSSEARCR_GLOBAL (,ADDR, TAP_SYMIO, TMP_OFFSET, .PRINT_FLAG); 


PAAAAAAAAAAAASAAAAAAAOOAIAOAAO 
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RETURN TRUE; 
END; 
END; 


} See if the address is on the call stack. 
if DBGSSEARCH_VAX_CALL_STACK (.ADDR, SYMID, BIT_OFFSET, .PRINT_FLAG) 
RETURN TRUE; 


PAAASAPAAAAAOAST 
PANAMA AMAMIY 


Se 


PAAAAInnn 


Try once more!!! See if the address is a global symbol. 
if DBGSSEARCH_GLOBAL (.ADDR, SYMID, BIT_OFFSET, .PRINT_FLAG) 
RETURN TRUE; 


PIPPI IPOPIPOPIPIPIPINPOPININININIPNINYD 
1232322 
esa 


! The address was not found, and symbolization was thus impossible. 
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yO4-000 12-358- 1380 et fey DEBUG. GRESASTACKESS 08951 9 43) 
3 2549 670 ' 
; 2550 671 SYMID = 0; 
: 1 676 BIT OFFSET = .ADDR; 
5 ¢ 67 RETORN FALSE; 
3 674 END; 
OOFC 000 -ENTRY DBGSSTA_GETSYMOFF, Save R2,R3,R4,R5,R6,R7 =; 2499 
57 900000006 0 3 0 MOVAB DBGSPRIRT CONTROL. R7 : 
6 000000006 MOV DBGSSEARCA_GLOBAL, R6 ; 
SE 8 Ce 0001 SUBL P : 
54 08 AC 00 0001 MOVL P_SYMID, Ré4 > 2579 
53 OC aC 01 MOVL P7BIT_OFFSET, R3 : 2580 
04 € 91 00018 CMPB CCAP) "4 + 2592 
6 if OO1E BLSSU 1S ; 
55 10 AC 00 00020 | MOVL 16(AP), PRINT_FLAG + 259% 
g be $0 6 1$ LRL SRINT FLAG : 2596 
: 4 4 : 2s: Sy o WERS RSD : 2601 
52 04 A D0 99 C MOVE ADDR, R2 F 
000000006 90 04 Fe 00 2 CALLS #4, DBGSSYMBOLIZE_REG ; 
5 50 €8 000 BLBS ‘ ; 
28 8B 0003C PUSHR #*M<R3,R5> > 2608 
14 BB 0003 PUSHR #*M<R2,R4> : 
000000006 00 04 FB 004 CALLS #4, DBGSSEARCH_SAT : 
2F 50 €9 0004 BLBC —E—s«aRO,._ S$ : 
64 DS 000A TSTL (rd) > 2616 
14 iF 04C BNEQ 4$ ; 
05 55 €9 O004E BLBC PRINT_FLAG, 3$ : 2619 
05 DD 00051 PUSHL #5 : 
67 1 FB 00053 CALLS #1, DBGSPRINT_CONTROL : 
8 BB 00056 3s: PUSHR #*M<R3,R5> : 2620 
14 BB 0005 PUSHR #*M<R2_RG> : 
6 4 FB OO05A CALLS #4, DBGSSEARCH_GLOBAL : 
1 0 ‘ 0050 BLBS = «RO, 68 ; 
3 1 0006 BRB ; 2626 
2c 33 E9 006 4$: BBC PRINT_FLAG, 6$ ; 3639 
67 1 FB 0006 CALLS #1, DBGSPRINT_CONTROL ; 
9 D SOSA PUSHL PRINT FLAG > 2646 
4 AE 9F 0006C PUSHAB TMP_OFFSET : 
. 5 BD 072 st tg RO oe : 
66 04 re 074 CALLS #4, DBGSSEARCH_GLOBAL ; 
18 1 77 BRB 6$ > 2649 
é BB 00079 S$: PUSHR #*M<R3,R5> > 2657 
4 88 00078 PUSHR #*M<R2_R4> : 
000000006 00 4 Fe 70 CALLS #4, DBGSSEARCH_VAX_CALL_STACK ; 
A 0 a BLBS) ss «RO. 6 ; 
BB 7 PUSHR #*M<R3,R5> > 2664 
4 6B 9 PUSHR #*M<R2-Rd> : 
ee 04 FB CALLS #4, DBGSSEARCH_GLOBAL ; 


<z 
ow 


arses 


; Routine Size: 


Ibese 
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157 bytes, Routine Base: DBGSCODE + OF BF 


HOH WAKA, WNGLL cM tbZ8 
BLBC R9. 4 
MOVL wi, R 
RET 
CLAL (R4) 
MOVL Ree (R3) 
CLRL R 
RET 


roe 8 
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5 $7? GLOBAL ROUTINE DBGSSTA_LINE_NUM_RST(LEXPTR, LINE_NUM, STMT_NUM, LINESTART, LINEEND) = 
$ bi i FUNCTION 
8 of8 : This routine builds a Line Number RST Entry for a specified Line and 
67 : Links it into the RST. In addition to the RST entry. @ dummy Label DST 
60 680 : Record is built (in the same mgpory, block) to_ contain the Line's name 
61 681 ‘ as Counted ASCII tg « “ZLINE 25.3"). The RST entry is Linked into the 
? ¢ Temporary RST Entry List pointed to by RSTSTEMP_LIST. 
64 684 i INPUTS 
65 685 : LEXPTR = A pointer to the lexical entity RST entry to which the Line 
208 $ Number RST Entry should be attached via the up-scope pointer. 
208 . LINE_NUM = The Line's Line number. 
$0 24 ; STMT_NUM = The Line's statement number. 
276 4 ! LINESTART = The Line's start address in virtual memory. 
2re oR } LINEEND = The Line's end address in virtual memory. 
576 696 i OUTPUTS 
57 697 : A pointer to the Line's Line Number RST Entry is returned as the 
578 : routine’s value. 
579 99 ! 
580 700 
58 BEGIN 
58 
58 LOCAL 
58 DSTPTR: REF DSTSRECORD, Pointer to Cumny Label DST Record 
58 . Index into the TEXT array; number of 
5 characters in the Line's name 
5 Pointer to DST record name vector 


NAMEPTR: REF VECTORC,BYTE), 

NUMBER, Used to convert ths statement and Line 
numbers to ASCII 

Pointer to Line Number RST Entry 

Vector used to generate ASCII name 


San 
ooo 
on 


MoronororoTf 


RSTPTR: REF RSTSENTRY, 
TEXT: VECTOR(40,BYTEI; 


! Build the Line number name as an ASCII string in the TEXT vector. Note 
! that the string is stored backward in this vector since we generate low- 
order numeric digits before high-order ones. 


J = 0; 
IF .STMT_NUM NEQ 0 
THEN 
BEG! 
= .STMT_NUM; 


NUMBER 
WHILE TRUE DO 
BEGIN 
TEXTC. JJ = (NUMBER MOD 10) + ‘0’; 


Jz. 
NUMBER = .NUMBER/10; 
IF :NUMBER EQL O THEN EXITLOOP; 
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TEXTC.J) = °.'; 
Jz J+; 


NUMBER = ,LINE_NUM; 
WHILE TRUE dO 


BEGIN 
TEXTC.J) vi (.NUMBER MOD 10) + ‘O°; 


Js 4g 
NUMBER 
IF .NUMBER MEOLe 0 "thin EXITLOOP; 
END; 
js .J * 6; 
TExTC.y = 1) = ‘R'; 
TEXTL.J = ¢ e 1"; 
TEXTL.J = ad (dl 
TEXTL.J = 4) = 'N'; 
TEXTL.J = 5) = ‘E*; 
TERTL.J © GJ @ * °3 
' Allocate enough space for the Line Number RST Entry ~ for a Label DST 
record (which we will build in the same memory block 
RSTPTR = DBGSGET MEMORY (RSTSK LINENTSIZ + (.J * 11)/4); 
DSTPTR = .RSTPTR'* 4*RSTSK_LINENTSIZ; 


: Construct the dummy Label DST record for the Line number. 


DSTPTR DST SB _LENGTH) = 
DSTPTRLDSTSB~ TYPE z OsTsK _iabeL; 
DSTPTR DSTSB7V AGS) 

pstprat DSTSL- Fibhia = a hAMESTART: 


DSTPTR 
NAMEP PIRCO] 
INCR I FROM 1 tb .J DO ‘eel = ,TEXTC.J = .1); 


Then construct the Line Number RST Entry for the Line. 


RSTPTRERSTSL_DSTPTR) = .DSTPTR; 
RSTPTRERSTSL_UPSCOPEPTR) = -LEXPTR: 
RSTPTRERSTSB_KIND) = ays LIN 
RSTPTRCRSTSL_STARTADDR) = TEUME START: 
RSTPTRERSTSL-ENDADDR) = .LINEEND 


: : Link the RST entry into the Temporary RST Entry List. 
ASTPTRERSTSL HASH Ath = ,RSTSTEMP_LIST; 
RSTSTEMP_LIST = .RSTPT 


Return to the caller with the RST entry address as the routine value. 
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Toh 1) Soto 


007¢ -ENTRY DBGSSTA_LINE_NUM_RST, Save R2,R3,R4,R5,R6 =; 2675 
56 000000006 r i ROVAR RSISTEMP_LIST, Rb ; 
D4 CLRL.OCd + 2719 
oc AC : TSTL STMT NUM : 3720 
1 oc Ae Sout STMT _NUN ER : 2723 
7 0 3 1 eA 1$: EMUL #1, RUMBER, #0, -<(SP) + 2726 
f 0 A zB EDIV. #16, (SP)+. RO. RO : 
B24E 0 8 ADDB3 #48. RO, TEXTLSP) : 
1 A ( DIVL2 #10. NUMBER : 2728 
gC BNEQ '1$ + 2729 
824E E 9 MOVB #46, TEXTCSP) : 2732 
1 08 AC p $: MOVL = _LINE_NUM ER : 27 
7E 00 1 O01 7A $: EMULs#1 , #0, -(SP) : 2739 
50 50 A 78 EDIV. #10, (SP)+ RO RO : 
B24E 6 0 81 ADDB3 #48. RO, TEXTCSP) : 
51 OA C DIVL2 #10. NUMBER + 2741 
EC BNEG 3$ + 27% 
52 C ADDL2 #5, J : 274 
824 5 9 MOVB a3? TEXT=1(SP) > 2746 
FE AEG 4c BF CO MOVB = s #76. TEXT~¢ J + 2767 
FD AEG 49 BF 90 MOVB #73. TEXT-3CJ : 2748 
FC AEG 4 F 30 VB #78, TEXT-40) + 2749 
Reg 8 hg mY. IBN ah ot 
ve att 0B <3 9€ v 11(R2), RI : 2757 
Ht 04 (6 DIVL2 #4, R : 
an ae: chitee SAD) seer MEMORY : 
eee 9 20 ag oe nove 32{R0), DSTPTR : 275 
63 5 f ADDBS #?, J, (DSTPTR) : 276 
01 A F MOVZBW #187, 1(DSTPTR) + 2764 
03 =A 19 A VL LINE START . 3(DSTPTR) > 2766 
54 07 A MOVAB 7 (R3), NAMEPTR : 2767 
64 MOVB J, (NAMEPTR) : 2768 
p4 CLRL : 2769 
51 52 3 4s SUBL3 J, RI : 
6544 664) ; se ROVE texters), (1) CNAMEPTR) 
deg 0c Hf 2g D MOVL §rpfr, 1acRsTeTR) > 2774 
10 A 046 A AA MOVL LEXPIR 16(RSTPTR) : 2775 
14 OA 0 AF MOVB , 20¢RSTPTR) ; 276 
18 OA 10 AC B MOVO  LINESTART, 24(RSTPTR) : 277 
6 D MOVL  RSTSTEMP List (RSTPTR) > 2783 
66 BB MOVL  RSTPTR, RSTSTEMP_LIST : 2784 
4 OO00BE RET : 3791 
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3 or 133 } GLOBAL ROUTINE DBGSSTA_LOCK_SYMID(SYMID_LIST_PTR): NOVALUE = 

: 267 795 1 | FUNCTION 

3; 267 7 1! This routine “locks” a List of SYMIDs in the RST so that the correspond- 
3 O78 797 1! ing RST entries cannot be released to the Ae wy pool. SYMIDs are 
; 26 P38 1} locked this way only when they will be saved in a Primary Descriptor or 
3 799 1! elsewhere accross oe ee commands. SYMIDs used to represent ‘’.’* (current 
: 1 o 1! location) or breakpoint locations are examples of SYMIDs which must be 
3 ¢ 1 1! locked accross commands. A locked SYMID remains locked until it is ex- 
; § ; plicitly unlocked by a call to DBGSSTA_UNLOCK_SYMID. 

; 685 4 1: The actual beck tog procedure involves sgcronegt ine the Reference Count 
; . ay in the SYMID's RS entry ong in most RST entries directly accessible 

3; 268 ,: from this RST entry. is includes all RST entries upscope from the 

3; 2688 07 1! present entry and all Data Type RST Entries attached to the up-scope 
Pope EE eae 

: 2691 10 1! INPUTS 

3; 269 tm e SYMID_LIST_PTR = A pointer to a Linked List of Linked List Nodes, where 
3; 269 \¢ 1! each node contains a forward Link and : SYMID value. ach 

3 2694 815 1! SYMID on the List is “‘locked’’ in the RST by incrementing the 
; red sie : reference count of the corresponding RST entry. 

; 639 16 1 § OUTPUTS 

3; 2698 1 1! NON 

3 144 818 1! 

3; 2700 th 1 

; 44! Y BEGIN 

> 270 } g LOCAL 

3 Me aS? LISTPTR: REF DBGSLINK_NODE; ! Pointer to current Linked List node 

: 2706 825 

3; 2707 8 $ 

: ss 8 ' Loop chrove all the SYMIDs (i.e., RST pointers) on the Linked List. 

; 2? 2828 ' For each SYMID on the List, call ADD_TO_REF_COUNT to increment the RST 

: zo $ > } entry's reference count. 

: re 831 LISTPTR = .SYMID_LIST_PTR; 

; ay : ; WHILE sLISTPTR NEQ 0 Bo 

3 2715 834 ADD_TO_REF_COUNT(.LISTPTRCDBGSL_LINK_NODE_VALUEJ, +1); 

; m6 835 LISTPTR = [LISTPTRCDBGSL_LINK_NODE_LINK); 

on vs 

; n9 838 RETURN; 

: 754 840 1 END; 


0004 -ENTRY DBGSSTA_LOCK _SYMID, Save R2 : 2793 
52 4 ac MOVL YMID_LTST_PTR, LISTPTR > 2831 
F 1$: BEQL $ ; 2832 
1 PUSHL #1 > 2834 
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19280871382 et BY DEBUG. SRCIRS 
GLOBAL ROUTINE DBGSSTA_LOOKUP_GBL(NAMEPTR) = 


FUNCTION 
This routine looks up a symbol in the Global Symbol Table (the GST) 
and only in the GST. It accepts the symbol name as input . looks up 
that symbol in the GST, and returns a pointer to an RST entry for the 
—e Senet If the symbol is not found in the GST, @ value of zero 
returned. 


The whole RST and GST search is suppressed if the DBG$GB_NO_GLOBALS 
flag is set. In this case, the routine always returns zero. 


0-74 Page 80 
o7595;1 9° 16) 


' INPUTS 
NAMEPTR = A pointed to the symbol name to be looked up in the GST. 
The name must be represented by a Counted ASCII string. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
' OUTPUTS 

: A pointer to an RST entry for the global symbol is returned as the 
: routine value. If the symbol is not in the GST, zero is 
returned as the routine value. 


BEGIN 
NAMEPTR: REF VECTORC,BYTE); ! Pointer to Counted ASCII symbol name 


Loc 


AL 
RSTPTR: REF RSTSENTRY; Pointer to current symbol's RST entry 


symbol is a routine entry point 


If the Global Symbol Table is suppressed, return zero right away. 

if .DBG$GB_NO_GLOBALS THEN RETURN 0; 

' Search the RST Hash Table for a symbol with the desired name which is 
' also marked as botne gener (meaning that it is derived from the GST). 
If we find such an RST entry, we return its address to the caller. 


DBGSHASH_F IND_SETUP( .NAMEPTR) ; 
WHILE TROE DO 


BEGIN 
TPTR = DBGSHASH_F IND( 


RS .NAMEPTR); 
IF .RSTPTR EQL 0 THEN EXITLOOP; 
IF -RSTPTRCRSTSV_GLOBAL] THEN RETURN .RSTPTR; 


We did not find the symbol in the Global Symbol Table--just return zero. 
RETURN 0; 
END; 


ita aed 
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50 04 000 g 
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-Sep-1 
gep-1 


— 
Fr 
- 


™~™ 
wr 


Be $8:98:26 © YoeeuG. SacSastactess.o38:1 


DBG$STA_LOOKUP oR ave nothin 
D8GSGB,NO_GLOBALS 23 . 


at 
ag BEGSHASH.. F IND_SETUP 


4 
a DBGSHASH. FIND 
RSfPT 


ped” 1$ 
RO 


4 


—__—__—_—— 


sles 


oonoovun 


ATUIPOPONIPINoToPUTNON 


AA AAA a tt ot ts I IOO 


MOMOPONY 
~ 


Gp 03 09 Gd 0D 0D 0D 0D CD Od OD 0D 0D CD 0D OD CD 0D 0D Cd CD CD CD CD. CD CD. CD 
NOUS wl — 


mrorors 


©c Oc Oo Oe Ge Oo Ge Se Se Go Ge Se Oe Se Gb Se Se Oo Go Ss So Os Se Ge Oo Oo Ge Ge Ge Ge Ge Se Os Ge Oe Oe Go Se Se Se Se Oe Ge SO Ge Se Oe G0 So Se Ge Go Se BOSE OSS 
oo 
_ 
o 


SSSSSERERRELER 


Roth = ss Ss ss 


OONO VNE UN $0 ODN NEW 0 ODOM EW  C ONO 


nm 


PEN —OOSwNO USUI "OC O@ 
= 


PO O@weO Fw 


" 7 
1eoSep-198e 18:18:26 EoeeuG.Saciastactess.039;1 0 19 


GLOBAL ROUTINE DBGSSTA_NOEVALBIT(SYMID) = 


FUNCTION 


This routine Geveratnes whether the DSTSV_MS_NOEVAL bit is set in the 
Value Spec for a specified symbol. This Bit"is used by PL/I to suppress 
peneyetust ten of Value Specs when such Value Specs can have side effects 
(as is the case for certain kinds e eA ED variables). The side effects 
are acceptable when such a symbol is initially examined, but not when 
the symbol is reexamined via the dot seudesyavel . Thus, when dot is 
bound to a symbol with the DSTSV_MS_NOEVAL bit set in its Value Spec 
that Value Spec is not reevaluated. The PL/I-specific code makes this 
check, but this routine returns the value of the bit. 


The DSTSV_MS_NOEVAL bit can only occur in a Value Spec containing a 
MaterializatTon Spec. If the Value Spec does not have that form, this 
routine always returns FALSE--the bit is treated as not set. 


INPUTS 


SYMID = The SYMID of the symbol whose DSTSV_MS_NOEVAL bit is to be 
interrogated. 


OUTPUTS 


The routine returns TRUE if the DSTSV_MS_NOEVAL bit is set in the 
symbol's value spec. If the bit is not set or if the bit 
is not present at all in the symbol's value spec, FALSE 
is returned. 


BEGIN 
MAP 
SYMID: REF RSTSENTRY; ! Pointer to input symbol's RST entry 
OCAL 
DSTPTR: REF BSTSAECORD ' Pointer to syabet ¢ DST record. 
MSPTR: REF DSTSMATER SPEC, ' Pointer to DST Materialization Spec 


VSPTR: REF DSTSVAL_SPEC; ! Pointer to DST Value Spec 


: Determine what kind of RST entry SYMID identifies and act accordingly. 
CASE. - SYMIDCRSTSB_KIND] FROM RSTSK_KIND_MINIMUM TO RSTSK_KIND_MAXIMUM OF 


! For anything but Data and Type Component symbols, return FALSE. These 
i symbols do not have value specs containing a DST$v_MS_NOEVAL bit. 


CRST$K_ROUT INE RSTSK BLOCK, 
RSTSK"ENTRY, RSTSK_LABEL, 
NE, RSTSK_TYPE): 
RETURN FALSE; 
| 


For Data and Type Components, do nothing here--we handle them below. 


nN 7 
vou-000 en 3ep= 198s 93:78:26 Eokeuc. Sacdastacce 
3 ‘ CRSTSK_DATA, RSTSK_TYPCOMP): 
9 § 0; 
40 g 
388 
960 


For everything else (including Module), signal an internal error. 


CINRANGE, OUTRANGE): 
$DBG_ERROR('RSTACCESS\NOEVALBIT'); 


TES; 


FEELELS 


' For the items not yet handled (i.e., for data), we determine the type of 
: DST record which holds the value specification and act accordingly. 


DSTPTR = .SYMIDCRSTSL_DSTPTRI; 
CASE. -DSTPTRLDSTSB_TYPE FROM 0 TO 255 OF 


! Handle the DST records which can conceivably have Materialization 
! Specs and thus the DSTSV_MS_NOEVAL bit. If the bit exists, return 


' 
{ 
' 
' 
C 


' its value; otherwise return FALSE. 
[DSCSK_DTYPE_LOWEST TO DSCSK_DTYPE_HIGHEST, 
DSTS$K-BOOL, DSTSK_SEPTYP, DSTSK_LBLORLIT, 
DSTSK-RECBEG, DSTSK_ENUMELT): 
98 BEGIN 
98 
867 984 
868 985 ! Indirect chroygh any Trailing Value Specs to get to the symbol's 
869 986 ' Value Spec. If this Value Spec cannot have a Materialization 
a + 14 Spec, return FALSE right away. 
ere 989 VSPTR = DSTPTRCDSTSB_VFLAGS); 
87 990 WHILE ME bel 3h VS_VFLAGS) EQL D TSK_VFLAGS_TVS DO 
B78 bad. VSPTR = VSPTRCBSTSA_VS_TVS_BASE) + SVSPTRCBSTSL_VS_TVS_OFFSET); 
B76 vad, IF .VSPTRCDSTSB_VS_VFLAGS) NEQ DSTSK_VS_FOLLOWS THEN RETURN FALSE; 
7 995 
$75 9 ! If this is a Static or Pyneaic DSTSK_VS_FOLLOWS type Value Spec, 
380 44 : return the DSTSV_MS_NOEVAL bit from the Materialization Spec. 
Bs if (.VSPTRCDSTSB_VS_ALLOC) EQL DSTSK_VS_ALLOC_STAT) OR 
88 900 (.VSPTR DST$B-VS"ALLOC) EQL DST$K"VS~ALLOC"DYN) 
SB oes BEGIN 
it] 00 MSPTR = VSPTR Be TSA vs parsret: 
4 RETURN .MSPTRLDSTS$V-MS_NOEVAL J; 
9 ° 
$91 Any other value in the DSTSB_VS_ALLOC field is an error. 
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SIGNAL (DBG$_INVDSTREC); 
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sis 


; 2895 O18 END; 

; 3 14 

; 28 015 ! for all DST records which cannot have Materialization Specs in their 
; 34 B13 } Value Specs, fall through to return FALSE at the end of the routine. 
5 2901 1 C INRANGE): 

: O08 018 0; 

: 290 0 

3; 2904 021 TES; 

; 2905 s ¢ 

3 307 , : Return FALSE. If we got here, there is no Materialization Spec. 

: 2909 026 RETURN FALSE; 

; 2910 0 

3; 2911 028 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


56 45 4F GE SC 53 53 45 43 43 41 5 3 QOOAC P.AAQ: .ASCII <19>\RSTACCESS\<92>\NOEVALBIT\ : 
54 4 1 00088 


»-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


00c 00000 .ENTRY DBGSSTA_NOEVALBIT, Save R2,R3 : 2898 
53 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R : 
52 04 AC b0 00009 MOVL YMI : 2940 
0D 00 16 A2 BF 0000D CASEB O<ReS, #0, #13 ; 
0270 0270 001¢ 001C 00012 1$ «WORD 2$-1$,- ; 
0270 002D 0270 0 70 0001A 2$-1$.- ; 
001¢ 002D 001¢ 70 00022 10$-1§,- ; 
001¢ 001C 0002A 10$-1$.- ; 
10$-1$,- : 
10$-1$.- : 
3$-1$,- : 
108-18,~ : 
10$-1$.- ; 
$-1$,- : 
$-1$.- ; 
$-1$.- ; 
13°" 
00000000" EF 9F OO002E 2%: PUSHAB P.AAQ + 2962 
1 Dd 00034 PUSHL #1 ; 
00028362 BF ODD 0 PUSHL #164706 ; 
$3 FB C CALLS "3 | 18851 GNAL ; 
0 oc A p O3F 3S: MOVL 12(R2), DSTPTR : 2970 
FF er 6 1 AO 8F 043 CASEB 1(DSTPTR), #0, #255 > 2971 
0200 0 3 49 4$ WORD 108748,~ ; 
0200 4 0 beg -4$,- 3 
0200 0 0 0 6 9 $-4$.- ; 
0200 00 061 $-4$.- ; 
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GLOBAL ROUTINE DBGSSTA_NUMBERED_SCOPE (SCOPE NUMBER, MODRSTPTR, ‘ars 
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SCOPE - A pointer to the RST — of the routine or lexical block 
which constitutes the numbered scope is returned to SCOPE. 
If the scope cannot be found, a zero is returned to SCOPE. 

INVOCNUM = The invocation number of the scope is returned to INVOCNUM, 


No value is returned. 


13 9 
Bie ? ; INVOCNUM): NOVALUE = 
38 § ! FUNCTION 
91 ' This rout ine determines what scope corresponds to a given “numbered” 
38 ; scope at this point in the user program's qnegut ren. This scope is de- 
91 5 ; termined by looking SCOPE NURGER levels down in the VAX CALL=stack and 
920 § : pteeine ue the PC value in thet call frame. The Program Static Address 
921 5 : able (SAT) is searched for this PC value to find the containing module, 
9 ¢ : : and after that the module's SAT is searched if the module is marked as 
0 ; SET. The module's RST is built if not pargesy preserss The search is 

924 Bey : successful if a Routine RST Entry or a Lexical Block RST Entry is found 
5 ee } whose address range contains the PC value. 
9 5 nk ! INPUTS 
928 044 : SCOPE NUMBER - The number of the ‘numbered scope’’ to be located. This 
929 045 : number is zero for the current scope, i.e. the scope where 
930 peo : the PC is located at present, and it is N for the scope which 
44 oh contains the PC N levels down in the VAX CALL=stack. 
338 049 : MODRSTPTR = The address of a longword location to receive a pointer to 
: pay the Module RST Entry for the numbered scope. 
9 O36 : SCOPE = The address of a longword location to receive a pointer to the 
TA 05 ’ Routine or Lexical Block RST Entry which defines the numbered 
BET an 
940 328 ; INVOCNUM = The address of a longword location to receive the correspond- 
eh: eH } ing invocation number. 
308 059 ! OUTPUTS 
944 060 : MODRSTPTR = A pointer to the numbered scope's Module RST Entry is 
945 061 : returned to MODRSTPTR. If the scope cannot be found, a 
94 06 zero is returned to MODRSTPTR. 

J 

i 

i 

i 

i 

i 

i 


BEGIN 


w 


MAP 
MODRSTPTR: REF VECTOR(1), 
SCOPE: REF VECTOR(1), 
INVOCNUM: REF VECTOR(1); 


Pointer to longword to receive the 
odule RST Entry pointer 
Pointer to longword to receive the 

numbered scope RST pointer 
Pointer to longword to receive the 
scope's invocation number 


eB 


wn —O Oo 


CAL 
FRAMEPTR: REF BLOCKC,BYTE), 
MODPTR: REF RSTSENTRY, 


Pointer to stack CALL frames 
Pointer to scope’s Module RST Entry 


oa 
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3 ! CALL=frame Program Counter value . 
: REGPTR: REF VECT (LONG). i Po nter to an actual register value i 
5 3 REGVEC: VECTORL1 ' Vector o gotnters to register save 3 
3 : locat Tone for current CALL frame i 
: ROUTPTR: REF cecil ! Pointer to RST entry for inner-most 3 
3 91 : routine in up=scope chain 3 
3 38 RPTR: REF RSTSENTRY ' Pointer used to search up; scope chain i 
: 9 RSTPTR: REF RSTSENTRY, i Pointer to numbered scope's RST entry i 
3 94 RUNFRAME _PTR, ' Pointer to current © in An’ com= ‘ 
3 95 ' mand runframe stac eded by i 
3 38 ' the GET_REGISTER CALUES" routine? : 
; 9 SATPTR: REF SATSENTRY; ' Pointer to the current Static Address ; 
5 a8 ! Table entry i 
3 09 i 
3 199 i 
: 19¢ Return zeroes (no find) to MODRSTPTR and SCOPE initially. 
; 10% RODRSTPTREO?. = 0; i 
3 : 5 OPECO) = i 
109 
3 108 ! Pick up the current Program Counter value from the user's run frame. ‘ 
3 109 i Then search through the CALL frames on the stack until the desired run { 
3 110 i frame (and thus PC value) is reached. If the CALL stack ends before i 
3 Mi then, return with MODRSTPTR and SCOPE containing zeroes. i 
; 118 PCVAL = .DBGSR FRAME [DBGSL _USER_PC); i 
: 114 If rg Se EQL bp : 
: 115 FRAMEPTR = .DBGSRUN Frane DBESL_U : 
3 16 RUNF RAME PTR = .DBGSRUNFR ARE [DBGSL Rat LINK); 3 
3 sf Me anny sae 1 TO .SCOPE NUMBER : 
: 008 +h 4 ol on’ -FRAMEPTRCSFSA_HANDLER] EQL DBGSFINAL_HANDL) OR (.PCVAL EQL 0) 
: 3005 1 RETURN; 
: $09 1 GET REGISTER VAL ES(.FRAMEPTR, RUNFRAME_PTR, REGVEC); : 
3; 3008 124 REGPTR REGV vet 15); i 
; 3009 125 PEVALS s * REGPTR ij { 
; 3010 1 6 REGPTR = .REGVEC(13); : 
; ae z FRAMEPTR = -REGPTRLOS; 
: $018 138 . : 
3 3015 131 ! Search the repre Static Address Table (SAT) for the module which con- : 
3 Big 1 ; i tains the PC value we found. If we don't find such a module, return ; 
3 4 : Z : with MODRSTPTR and SCOPE “containing zeroes. 
; O19 135 SATPIR =, SATSSTART ADDR; 
; 3020 1 § WHILE TRUE DO ; 
3; 3021 1 peGiN i 
; 30 § 1 : IF .SATPTR EQL 0 THEN RETU } 
g Z \io If {PCVAL GEQ SATPIRESATSC Ne raRT) AND .PCVAL LEQ .SATPTRCSATSL_END] 
: 3025 141 EXITLOOP; 
: 3026 142 i 
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te = ,RPTRCRSTSL_UPSCOPEPTR); 


3 7 197 SATPTR = » SATPTRCSATSL_FLINK); 

ee 

; 14 

; 30 : 123 ! We found the module. if the module is SET, search its SAT chain for the 
: 9 ¢ 148 i innermost lexical entity containing the pé value. 

: s 150 MODPTR = ,SATPTRCSATSL_RSTPTRI; 

3 5 151 1f NOT .MODPTR RST$V_MODSETI Hh RETURN; 

H 4 ! § i _ -MODPTRLRSTSV_MOD_IN_RST 

: 30 154 DBGSRST_BUILD(.MODPTR, FALSE); 

3; 30 155 RSTPTR = 0; 

; 3040 1 § SATPTR = .MODPTRCRSTSL_SAT_PTRI; 

é ‘eh ; me 00 

; be§ 1 $ If .SATPTR EQL 0 THEN EXITLOOP; 

3 3046 160 IF .SATPTRCSATSL_START) GTR .PCVAL THEN EXITLOOP; 

3 Rez 19) a atthe SATSL_END] GEQ .PCVAL 

: 3047 188 i BEGIN 

; ek 198 2 RPTR = - SATPTRCSATSL_RSTPTRI; 

: 3050 166 4 

3 O83 + 4 ? If this static item is not a routine or block, ignore it. 
; 088 169 4 if (.RPTRCRSTS$B_KIND] NEQ RST$K_ROUTINE) AND 

3; 3054 170 § (.RPTR RST$B_KINDJ NEQ RST$K_BLOCK) 

3; 3055 171 & THEN 

Be RRS 

: 3058 174 4 

; 3059 175 4 ' It is a lexical entity. If it is the first one we have found, 
; 3060 176 4 ! save its RST pointer in RSTPTR. 

3; 3061 177 4&4 ! 

: Bee 178 4 ELSE IF .RSTPTR EQL O 

3; 306 179 4 

; bee : , 2 RSTPTR = .SATPTRCSATSL_RSTPTRI 

; 182 4 

: $e$ 1 4 ' Otherwise, make sure it is the inner-most lexical entity so far. 
; 3068 184 4 ! If not, ignore it. 

3099 1, éLse 

; a 1 5 BEGIN 

$ 188 WHILE .RPTRCRSTSB_KIND] NEQ RSTSK_MODULE DO 
H 189 6 BEGIN 

; 139 6 ee te EQL .RSTPTR 

; 198 5 BEGIN 

3 19 7 RSTPTR = .SATPTRCSATSL_RSTPTRI; 

3 194 7 EXITLOOP; 

3 12? ° END; 

: im 

; 199 
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END; 


END; 
SATPTR = .SATPTRCSATSL_FLINK); 
END; 


! If we did not find the containing lexical entity, return with MODRSTPTR 
; and SCOPE containing zeroes. 


if .RSTPTR EQL 0 THEN RETURN; 
! We found the scope successfully. Return the proper RST pointers to 
: MODRSTPTR and SC ° 


MODRSTPTRLO] = .MODPTR; 
SCOPELO] = .RSTPTR; 


' Now search the CALL stack opete to determine what the invocation number is 
for the routine which constitutes or immediately contains the scope. 


iNVOCNUMLO3 = 0; 

ROUTPTR = .RSTPIR;: 

WHILE  ROUTPIRERS SB. KIND] NEQ RSTSK_ROUTINE DO 
IF .ROUTPTRERSTSB KIND] EQL RSTSK MODULE THEN RETURN; 
RouTP TR = .ROUTPTRCRSTSL_UPSCOPEPTR); 

PCVAL = .DBGSRUNFRAME(DBGSL USER, PCI; 

FRAMEPTR = .DBGSRUN FRAME COBGSL R_FPI; 

RUNFRAME PTR = .DBGSRUN ARE DBGSL RREXt’ LINK); 

INCR I FROM 1 TO aie NUMBER 


BEGIN 
IF (.PCVAL GEQ .ROUTPTRCRSTSL_ grant aeeezs AND 
(.PCVAL LEQ .ROUTPTRCRSTSL_ENDADDR J) 


INVOCNUMCO) = .INVOCNUMCO) ¢ 1; 


GET REGISTER ever RSs: -FRAMEPTR, RUNFRAME_PTR, REGVEC); 
REGPTR = REGY an? 


PCV REG 
REGPTR = ne eevet ti, 
ERAREPTR = .REGPTRLO); 


We are all done. Now return. 


RETURN; 
END; 
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00FC 00000 JENTRY DBGSSTA NUMBERED. SCOPE, Save R2,R3,R4,R5,- ; 3029 
57 000000006 00 3 02 MOVAB DBGSRUNF RAME +64, R? : 
& AE MOVAB =/2(SP), SP : 
BC 04 0000 CLRL  a@MODRSTPTR + 3104 
C BC D4 0001 CLRL = aSCOPE + 3105 
54 6 p HOVE p GSRUNFRAME+64, PCVAL : 113 
56 FS i3 D i8 MOVL DBGSRUNFRAME+56, FRAMEPTR : 3115 
6E cO aA? OD 1 MOVL § DBGSRUNFRAME, RUNFRAME_PTR : 116 
52 04 : CLRL 3; 311 
28 11 000 BRB $ : 
50 000000006 60 i 00 4 1$: MOVAB DBGSFINAL_HANDL, RO + 3119 
5 6 D0 B CMPL (FRAMEPTRY, RO 3 
B 13 00 BEQL $ : 
4 05 000 TSTL  PCVAL : 
7 13 000 BEQL =s 38 ; 
04 AE 9F 000 PUSHAB REGVEC + 3123 
04 AE 9F 00037 PUSHAB RUNFRAME_PTR : 
36 DD 0003A PUSHL FRAMEPTR : 
0000v CF 03 FB 0003Cc CALLS #3, GET REGISTER VALUES : 
55 40 AE 00 00041 MOVL REGVEC+80, REGPTR : 31 
54 6 09 0045 MOVL (REGPTR), PCVAL : 31 
55 38 AE DO 00048 MOVL  REGVEC+52, REGPTR : 31 
56 6 00 004C MOVL (REGPTR), FRAMEPTR s 31 
DO 32 04 AC F3 OO04F 28: AOBLEQ SCOPE R, I, 1$ : 311 
52 000000006 99 06 0054 MOVL § SATSSTART_ADOR, SATPTR : 13 
13 00058 3$: BEQL Ss} : 31 
04 A2 54 01 0005p CMPL  PCVAL, 4(SATPTR) : 313 
6 19 00061 BLSS : 
08 A2 4 01 O83 CMPL PCVAL, 8(SATPTR) 3 
05 15 8006 BLEG : 
52 62 DO 00069 4$: MOVL (SATPTR), SATPTR : 3143 
ED 11 0006C BRB 3$ : 3136 
53 of A 4 BO95 5$: MOVL 12(SATPTR), MODPTR ; 3150 
01 8 A cs 007 BLBS 4O(MODPTR). 6$ > 3151 
08 28 3 91 £0 0077 6$: BBS #1, 4O(MODPTR), 7% : 3152 
D4 0007¢ LRL = §P) : 3154 
53 pd 0007 PUSHL RODPTR ; 
000000006 00 g¢ FB “ CALLS #2, DBGSRST_BUILD _ 
52 18 A3 9 9 MOVL 4(MODPTR), SATPTR ; 3156 
3 8$: BEQL 4$ : 3159 
54 04 A 9 F CMPL 4(SATPTR), PCVAL : 3160 
36 14 3 BGTR 143 ; 
54 08 A D1 9 CMPL B{SATPTRD, PCVAL : 3161 
2 9 99 BLSS 3 
50 0c A BY 98 MOVL 12(SATPTR), RPTR 3; 3164 
02 14 AO 91 0009F CMPB (RPTR), #2 ; 3169 
0 13 A BEQL 3 
03 1% Aad 9 A CMPB (RPTR), #3 : 3170 
1 if A BNEQ $ ; 
51 D AB 9S TSTL RSTPTR : 3178 


co 
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0B 1 AD BEQL 1$ ; 
01 14 A a Ni 108: cnPe 29cReTRD, a : 3188 
51 0 p} $3 CHPL RPTR. RSTPTR + 3190 
51 oc a3 06 BA 11$ MOVL 13tsatere, RSTPTR + 3193 
0 ef BRB 13$ : 192 
50 10 AO 00 000C6 128:  MOVvL 1<RPTRD, RPTR + 319 
€9 11 C4 BRB 10$ : 3188 
52 6 b0 C6 13$: MOVE (SATPTR), SATPTR : 204 
1 ¢ BRB 8$ : 3157 
03 (B 14$: TSTL RSTPTR + 3211 
5 CD 15$: BEQL 218 : 
08 Bc D0 OCF MOVL § MODPTR, @MODRSTPTR : 317 
oC BC 1 00 D3 MOVL  RSTPTR. aSCOPE : 3218 
10 et D4 0000 CLRL  @INVOCNUM ; 4 
52 1 b0 ODA MOVL §§RSTPTR, ROUTPTR : 5 
0 14 A2 91 000DD 168: CMPB ‘ (ROUTPTR), #2 : 3226 
0¢ 13 000€1 BEQL $ : 
01 16 Ad 91 OOES CMPB O(ROUTPTR), #1 : 3228 
44 13 OO0E BEOQL 1$ ; 
52 10 A2 D0 000E9 MOVL 6(ROUTPTR), ROUTPTR : 9 
3 11 OO00ED BRB 16$ : 
54 67 DO OOOEF 17$:  MOVL #$DBGSRUNFRAME+64, PCVAL : 
56 F8 AZ? 00 O000F2 MOVL § DBGSRUNFRAME+56. FRAMEPTR > 323 
6E cO a? DO 9006 MOVL §§ DBGSRUNFRAME, RUNFRAME_PTR : 3234 
53 D4 OOOFA CLAL } 3 3237 
eA 11 OO00FC BRB 0s : 
18 A2 4 01 d00r 18$: CMPL PCVAL, 24(ROUTPTR) : 
09 19 0010 BLSS =s_—«19$ : 
1c —A2 4 01 00104 CMPL PCVAL, 28(ROUTPTR) : 3238 
03 14 00108 BGTR 19% : 
10 BC 06 OO10A INCL = @INVOCNUM : 3240 
04 AE 9F 0010D 19$: PUSHAB REGVE : 3242 
04 AE 9F 0011 PUSHAB RUNFRAME_PTR : 
56 DD 0011 PUSHL FRAMEPT : 
0000v CF 03 F gt CALLS #3, GET REGISTER VALUES ; 
55 40 AE DO OO1IA MOVL REGVEC+80, REGPTR > 3243 
54 65 00 OO11E MOVL (REGPTR), PCVAL > 3264 
55 38 «AE 00 00121 MOVL REGVEC*52, REGPTR > 3245 
36 65 00 00125 MOVL (REGPTR), FRAMEPTR : 324 
D1 5 06 AC F3 00128 208 AOBLEQ SCOPE_NUMBER, I, 18% ; 323 
04 00120 21$ RET : 3254 


; Routine Size: 5302 bytes, Routine Base: DBGSCODE + 1381 
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LOBAL ROUTINE DBGSSTA_RECORD_COMPONENT(RECSYMID, INDEX) = 


FUNCTION 

This routine returns the SYMID of the N-th record component of a record 

data object. It accepts as input a petnter to a pate RST entry of a 

'N'') into the List of 

record components for the record. This routine is used mainly to find 
the logical successor or predecessor of a record component of a known 
index into the record component List. In other words, if the current 
location is the Neth Congenent of a record, its predecessor is the N-1 
and its successor the N+! component of the record. This routine returns 
a@ pointer to the Data RST Entry for such a component. 


G 

‘ 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

: To accomplish this, the INDEX-th record congeners is looked up in the 
component List in the record's Data Type RST Entry. This gives a 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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record ("’structure’’) data object and an index ( 


perager to the component's Type Component RST Entry. A new Data Item 
ST Entry is_then build from the information in the Type Component 
RST Entry. This new entry is put on the sengorery RST Entry List and 


its address is returned as the component SYM 


INPUTS 
RECSYMID = The SYMID of the Record data object whose INDEX-th component 
is to be returned. 


INDEX = The index of the desired component into the record component 
List for RECSYMID. The first component of a record has the 
INDEX value of 1. 


OUTPUTS 
The SYMID of the INDEX-th component of RECSYMID is returned as the 
routine value. If INDEX is out of range (no such component 
number), this routine returns zero. 


BEGIN 
P 

RECSYMID: REF RSTSENTRY; ! SYMID of record data object 

LOCAL 
FCODE 
NEWRSTPTR: REF RSTSENTRY, ' Pointer to new Data Item RST Entry 
RSTPTR: REF RSTSENTRY ' Pointer to Type Component RST Entry 
TYPCOMPLST: REF VECTORL,LONG), | Pointer to type component List 
TYPEPTR: REF RSTSENTRY; ! Pointer to record's Type RST Entry 


' Check that RECSYMID points to the Data Item RST Entry for a Record object. 
If not, signal an internal DEBUG error. 


' 
' 
‘ 
LF RECSYMIDCRSTSB_KIND] NEQ RSTSK_DATA 

$DBG_ERROR("RSTACCESS\RECORD_COMPONENT 10°); 


DBGSSTA_SYMTYPE(..RECSYMID,FCODE, TYPEPTR); 
IF .FCOBE EQL RSTSK_TYPE_ARRAY 
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PEPTR,NDIMS,DIMVECPTR,BITSIZE); 


IF_ .TYPEPTRCRSTSB_FCODE] NEQ RSTSK_TYPE_RECORD 
SDBG_ERROR('RSTACCESS\RECORD_COMPONENT 20°); 


If the INDEX value is out of renge return zero to the caller. Otherwise, 
pick up a@ pointer to the INDEX-th fype Component RST Entry. 
(.1 


. INDEX LEQ 0) OR (. INDEX GTR. sIYPEPTRERSTSL TYPCOMPCNT]) THEN RETURN 0; 
PCOMPLST = TYPEPTR RSTSA TYPCOMP 
TPTR = ,TYPCOMPL 13; 
ci "RSTPTRERSTSB PRINDS. NEG RSTSK. TYPCOMP 
$DBG_ERROR('RSTACCESS\RECORD_COMPONENT 30°); 


' 
i 
i 
if 
TY 
RS 
IF 
THEN 


! Now construct a Data Item RST Entry from the yee eg ye RST Entry, 

i make its u up=scope pointer point to the RECSYMID Data Item RST Entry 

and return the address (i.e., SYMID) of the new RST eotry to the caller. 
n 


Note that the new RST entry is put on the Temporary RST Entry List. 


i 

NEWRSTPTR = DBGSGET MEMORY (RSTSK DATENTSIZ); 

NEWRSTPTRERSTSL WHASA_FLINK] = .RSTSTEMP_LIST; 
TSTEMP_LIS NE TOT: 


RSTSTE S 
NEWRSTPTR RSTSL -bSTPTRJ = gRSTPTRERSTSL _DSTPTRI; 
NEWRSTPTRERST $L ~UPSCOP EPTR} = sRECSY MID; 
NEWRSTPTRCRSTSB_KIND) = RST $k 
NEURSTPTRERSTSUNTYPEPTRI © ORSTPTRERSTSL _TYPEPTR; 
RETURN .NEWRSTPTR; 


END; 

-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
45 43 43 41 54 53 52 1D QOOCO P.AAR: .ASCII <29>\RSTACCESS\<92>\RECORD COMPONENT 1\ : 
4F 50 4D 4F 43 SF 46 OOcr : 
6 OD ASCII \9\ ; 
S$ 63 43 41 56 53 S2 1 ODE P.AAS: <ASCII <29>\RSTACCESS\<92>\RECORD_COMPONENT 2\ : 
4F 50 4D 4F 43 SF 44 23 OED ; 
OFB ASCII \9) ; 
45 43 43 41 54 53 52 } OFC P.AAT: ASCII <29>\RSTACCESS\<92>\RECORD_COMPONENT 3\ : 
4F 50 4D GF 43 5F 44 23 0108 ; 
011 ASCII \O\ ; 

.PSECT DBGSCODE,NOWRT, SHR, PIC,0 

007¢ 00000 .ENTRY DBGSSTA_RECORD_COMPONENT, Save R2,R3,R4,R5,-; 3255 
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R6 
RSTSTEMP_LIST, R6 
P. Re 
LIBSSIGNAL, Rs 

SP 


4 CE yarD R3 
feo RE 
1 


g 

#164706 

a LIBSSIGNAL 

TYPEPTR 

a 
DBGSSTA_SYMTYPE 

FCODE, #1 


PEPTR 
DSCADDR 
TYPEPTR 
#6, DBGSSTA_TYP_ARRAY 
TYPEPTR, R2 
4(R2), #7 
P.AAS 
t 
#164706 
#3, LIBSSIGNAL 
NDEX, RI 


40(R2) 


T 
J, RSTPTR 


6 
» LIBSSIGNAL 


#1, DBGSGET_MEMORY 
RSTSTEMP_LIST. (NEWRSTPTR) 
NEWRSTPTR RStSTEMP LIST 

1 (RSTPTRS 2(NEWRSTPTR) 
R3, 16(NEWRSTPTR) 
#6. 20(NEWRSTPTR) 
24(RSTPTR), 24( 
RO 


NEWRSTPTR) 
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GLOBAL ROUTINE DBGSSTA_RECORD_INDEX(RECSYMID, COMPSYMID) = 


FUNCTION 
This routine accepts the SYMID of @ Record data ob 
of a component of that record and it returns the index of the component 
in the record's component List. eyes the Record and Component SYMIDs 
should point to Data Item RST Entries (kind is RSTSK_DATA). The re- 
turned index starts of 1 so that the index of the first component of 
- - the record is 1, the index.of the second conpanent is and so forth. 
This routine is used together with routine D G$STA_RECORD_ COMPONENT in 


Vv 
cc 


ject and the SYMID 


the processing of logical predecessors and successors. 


If the COMPSYMID object is not a component of the RECSYMID object or if 
70 4+ object is not of a Record type, an internal DEBUG error is 
signalled. 


Data “yee RST Entry for the record type for a Type Component RST Entry 
which has the same DST pointer as the COMPSYMID ote Item RST Entry. 
When such an entry is found, its index in the List is 


INPUTS 
RECSYMID = The SYMID of a Record (‘'structure’’) data object. Its kind 
must be RSTSK_DATA. 


COMPSYMID = The SYMID of a component of the RECSYMID record. Its kind 
must also be RSTSK_DATA. 


returned. 


OUTPUTS : . 
The index of the COMPSYMID data object in the record component List for 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

The routine does it eg by searching the Type Component List in the 
. e 
' 

' 

i 

i 

i 

i 

i 

i 

! 

i 

i 

i 

the RECSYMID data record. The first component has index 1. 


BEGIN 
P 
RECSYMID: REF RSTSENTRY, ' Pointer to Data RST Entry for record 
COMPSYMID: REF RSTSENTRY; ' Pointer to Data RST Entry for a com- 
: ponent within the above record 
LOCAL 


! Pointer to Type Component RST Eotry 

' Pointer to type petpecens List in the 
: Data Type RST Entry 

! Pointer to Type RST Entry for record 


F CODE 
RSTPTR: REF RSTSENTRY 
TYPCOMPLST: REF VECTORC,LONG), 


TYPEPTR: REF RSTSENTRY; 


' Make sure RECSYMID points to a Dat 
' COMPSYMID points to a Data Item RS 
: Entry for the record type. 


iF (.RECSYMIDCRST$B_KIND) NEQ RSTSK_DATA) OR 
(. COMPSYMIDCRST$SB_KIND) NEQ RSTSR_DATA) 


SDBG_ERROR('RSTACCESS\RECORD_INDEX 10°); 


a Item RST Entry for a record and that 
T Entry. Get a pointer to the Type RST 


aa. 


FUNC VOOnNOuUSwnr—oO 
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4F 43 
4F 43 
4F 43 


—— 
sles 
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DBGSSTA_SYMTYPE( .RECSYMID,FCODE,TYPEPTR); 
IF, (-FCODE EQL RSTSK_TYPE_ARRAYS 
1 BEGIN 
1 LOCAL _DSCADDR,NDIMS ,.DIMVECPTR,BITSIZE; 
\ DBGSSTA_TYP_ARRAY(. fYPEPTR,DSCADDR, TYPEPTR.NDIMS DIMVECPTR,BITSIZE) 
14 : 
1? If .TYPEPTRCRSTS$B_FCODE] NEQ RSTSK_TYPE_RECORD 
i SDBG_ERROR('RSTACCESS\RECORD_INDEX 20°); 
1 
0 ' Now eee through the record components for the RECSYMID Record Data Type. 
1 ! For each component, we get an index and a pointer to the corresponding 
§ ; type Component RST Entry. If that Type Component RST Entry has the same 
Z DST pointer as COMPSYMID, we return that component's index. 
5 TYPCOMPLST = TYPEPTRCRSTSA_TYPCOMPLST): 
$ seo 1 FROM 1 TO . TYPEPTRCRSTSL_TYPCOMPCNT) dO 
8 RSTPTR = .TYPCOMPLSTC.INDEX = 1); 
> fe AO EPIRERS TE, PS IP TES EQL .COMPSYMIDCRSTSL_DSTPTR] THEN RETURN .INDEX; 
1 . 
5 We did not find COMPSYMID in the component List. Signal an error. 
5 $DBG ERROR('RSTACCESS\RECORD_INDEX 30°); 
RETURN 0; 
8 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
5C 3 53 45 43 43 41 54 53 52 19 QOTIA P.AAU: .ASCII <25>\RSTACCESS\<92>\RECORD_INDEX 10\ 
0 31 ¢9 58 45 46 4E 49 ef 44 3 Big? 
C 3 45 $3 43 41 54 > oes 0154 P.AAV: .ASCII <25>\RSTACCESS\<92>\RECORD_INDEX 20\ 
0 36 ¢9 4 45 44 rh 49 2 44 3§ 014 
C 45 43 43 41 54 53 52 1 O14E P.AAW: .ASCII <25>\RSTACCESS\<92>\RECORD_INDEX 30\ 
0 33 20 58 45 446 4€ 49 SF 44 52 00150 


WA, 
1eo$ep-198e 18:18:26 EdeauG. SacSastactess.650; 1 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


007¢ 000 -ENTRY DBGSSTA_RECORD_INDEX, Save R2,R3.R4,R5,R6 
é 90000000" ff 9E MOVAB P. AAU 
00000006 0 9 LIBSSIGNAL. RS 
18 ¢ 1 SUBL2 #24, SP 
See 1 MOVL RECSYMID, R2 

06 i @ 1 CMPB (R2), &6 

OA if 1B BNEQ 
50 08 AC 00 00010 MOVL  COMPSYMID, RO 
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000000006 99 
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00028362 
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ae et ey DEBUG. SRCIRSTACCE 
GLOBAL ROUTINE DBGSSTA_REGISTER_NAME(REGDESCR) = 


! FUNCTION 

: This routine converts a Register Descriptor into a Counted ASCII name 
. for the corresponding register. A Regigter Descr eter is produced 

: from an sSeotuye address by routine DBGSSTA_ADDRESS_TO_REGDESCR if 

: the address points into the DBGSREG_VALUES register save area set up 

: by DBGSSTA_SETCONTEXT. The Register Descriptor contains the register 
; number, a Byte offset, and the scope number of the reg" peer described. 
/ A register address is not a normal address, and should be printed as 

: a@ scope number or scope name followed by a register name. This routine 
: byl ts , such @ register name as a Counted ASCII string (for example 
\ZR5"') and returns a pointer to that string. 

! INPUTS 

: REGDESCR = The Register Descriptor which describes the register name 

: to be generated. 

i 

' 

i 

i 


' OUTPUTS 
A pointer to a Counted ASCII string containing the appropriate register 
name is returned as the routine value. 


BEGIN 


MAP 
REGDESCR: DBGSREGDESCR; 


Input Register Descriptor 


LOCAL 

INDEX, Character index within REGTABLE entry 

INVOCNUM, Invocation number for scope routine 

LENGTH Current length of ASCII string 

MODRSTPTR Module SYMI contetaiey the scope 

NAMEPTR: REF VECTORC, BYTE), Pointer to Counted ASCII string con- 
satesns the built register name 

PATHDESC, Pointer to Pathname Descriptor for 


routine name of desired scope 
Pointer to Counted ASCII string for 

routine name of desired peoge 
Pointer to register name in REGTABLE 
Pointer to RST entry of scope routine 
Temporary value of scope number 
Temporary in computing scope number 
Temporary buffer for scope number 


PATHSTRING: REF VECTORC,BYTE), 
REGPTR: REF VECTORC BYTE), 
RSTPTR, 

SCOPENUM, 

TEMPNUM, 

TEMPSTR: VECTOR(C12,BYTE); 


eee ee ee ee ee ee et 


- 'R2 *, 'R3 *, | Register name table 


ND 
REGTABLE = UPLIT (°RO 
*R4 


, R1 ‘ - 1 

ft "RS .. R6 of t 7 ! 
RB °. RO 8 RIO 8S RTT. 
"AP i] "FP a "SP lit ‘p .. ' 
"PSL "S$: VECTORC. LONG): 


Check that we really have a valid Register Descriptor. 
IF (.REGDESCRCDBG$V_REGD_SENTINEL] NEQ %X'2D") OR 


a 


g 
RSTACCESS 1besep-1986 O2:48:17  yaett BLina=32 
3 49 ( REGDESCRCDBG$B8_REGD_REGNUM] GTR 16) 


THEN 
SDBG_ERROR( *RSTACCESS\REGISTER_NAME'); 


! If the scope specified by the the Register Descriptor is in a set module 
' we should be able to symbolize the scope as a routine name. We thus call 
! NUMBERED_SCOPE to get a routine SYMID for the scope. If this succeeds, 

! we convert that SYMID to a name errs (in Counted ASCII) and leave that 
! name in a temporary memory block pointed to by NAMEPTR. 


' 

' 

' 

‘ 

' 

' 

SCOPENUM = aie CoE Sent DECeY REGD_SCOPENUM); 
IF .DBGSGB_MOD_PTRLMODE_SYMBOLST 


THEN 
DBGSSTA_NUMBERED_SCOPE(.SCOPENUM, MODRSTPTR, RSTPTR, INVOCNUM) 
MODRSTPTR = 0; 

IF .MODRSTPTR NEQ 0 

THEN 


EGIN 
* .INVOCNUM NEQ 0 THEN RSTPTR = DBGSBUILD_INVOC_RST(.RSTPTR, .INVOCNUM); 
DBG$STA_SYMPATHNAME(.RSTPTR, PATHDESC); 
DBGSNPATHDESC TO _CS(.PATHDESC, PATHSTRING); 
LENGTH = .PATASTRING(O]; 
NAMEPTR = DBGSGET_TEMPMEM((.LENGTH + 8 + ZUPVAL = 1)/XUPVAL); 
CHSMOVE (LENGTH +71, .PATHSTRING, .NAMEPTR); 


No specific routine name can be found for this scope in the RST. We 

therefore must represent the scope by a scope number. We first ges a 
perverery memory block and initialize an empty Counted ASCII string in 

t. We then convert the register'’s scope number to a decimal Counted 
ASCII string. This becomes the numeric scope which preceeds the actual 
register name (for example, the ‘'2"’ in ‘"2\2R5"'). 


fost te te te te 
- 


SE 
BEGIN 
ah it = DBGSGET_TEMPMEM(S); 


LE = 0; 

WHILE TRUE DO 
BEG 

NUM/10; 

4) = ,SCOPENUM - .TEMPNUM®10 + ‘0’: 
+ . 

QL O THEN EXITLOOP; 

MPNUM; 


ry ot ot 


NGTH bo 
EMPSTRCL.LENGTH = .1); 
END; 


MUN SHELL EEE 


SSESS 
3 = = sOOOOOCOOOO DOOD DODD ODOO 
ONS SS3SSSESSERESL3SS 
PUPP PUPPETS STITUTE STS SISISIO EE 
ALA ASIP OPROPORIMIMIRIRIPIAD —2 2 2 dd dd ad OO 200 
Doo WA PUP ODO NONE UN OO NONE WI BOD NO RU 
RIPPIN BB BB EMMA HMMM NHN. NAAN PIPOPPYPPUPIPURIPINIPINIPINPINUPINIW 


—me—OOCOwounfwnr—o 


' We now have the scope name as either a routine name or a scope number in 


: 
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1 ae 9 eet fey {oeBUG. SRC Rstactegs.035;1 ge 39} 
! the NAMEPTR buffer. Next we fill in the ‘\%"" that separates the scope 
} name from the register name. 


NAMEPTRE.LENGTH # 1) = ‘\'; 
NAMEPTRE.LENGTH # 2) = 'S': 
LENGTH = .LENGTH + 2; 


! Now fill in the register name itself. We look it up in REGTABLE, where 
! each register name is given as four ASCII characters. This code assumes 
that each register mame in REGTABLES ends with at least one blank. 


REGPTR = REGTABLEL.REGDESCRCDBGS$B_REGD_REGNUM]); 
s . 
WHILE .REGPTRC. INDEX] NEQ * * DO 

BEGIN 

LENGTH = .LENGTH + 1; 

NAMEPTRE.LENGTH)] = .REGPTRE. INDEX); 

INDEX = . INDEX + 1; 


ay PEGA 
w COS Soe ees 


! Finally, fill in ““soffset’ if the offset is non-zero. (The offset can 
only have values 1, 2, or 3 in this case.) 


if .REGDESCRCDBGSV_REGD_OFFSET] NEQ 0 
THEN 


OOO NINN NN NNO OO 


MEUM —OOONOAUE WN “OO OOnNo 


BEGIN 
NANEPTRE.LENGTH ¢ 1} = ‘e0 

NAMEPTRE.LENGTH + 2] = .REGDESCRCDBGSV_REGD_OFFSET] + '0'; 
LENGTH = LENGTH + 2; 


Now return a pointer to the Counted ASCII register name string. 


NAMEPTRLO) = .LENGTH; 
RETURN .NAMEPTR; 


Ae lal ab sb sb tb Ab Ab Ab Ab Ab Ad Ab Ab ab ah ah ah ah ah ah ah al 
33s> 
oo~ 


oo 
nm 
— 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
P.AAX: ASCII \RO . 


0 pies 3 
1 \9e eASCII \RI g 
¢ 01 eASCII AR \ ; 

174 eASCIT \RS \ 3 
4 178 eASCIT \R4& \ 3 
5 17 eASCIT \RS \ 3 
§ 1 eASCII \R \ F 

1 ttt \R7 \ 3 
3 1 eASCIIT \RB ON F 

1 ASCII \RO_ \ ; 
1 1 ASCII \RIO \ : 
1 194 ASCII \RTT \ 3 


7 
ou 


20 046 AC 
000000006 
FD16 
EA26 
04 
0000v 
000000006 
7€ 
67 10 


K 
16 
14 

41 198 

: ous 

1A 

“ 1A4 

4 1A8 

1 34 $3 TAC 

F 52 4 4 5 188 
01FC 00000 

58 000000006 5 000 

dE 00 


06 

10 05 
00000000' 
00028362 


Qf 
i 
5 iB 
F OF 
1 0D 
F 0D 
3 FB 
C 
0 

0 0 

E 

E 

; 

4 


08 
10 


CF 


BREE PAAR SS 2 2 


DONS DWOWOM SPW" WMO F OL MIOE 


08 


A 

| 

Ue 
00000006 G ? 
5 

A 

A 

5 

0 

0 

A 

A 

4 

6 
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OOCOCOCOCCOCCOCCOCOOSOOOCOOCOOOCOoOoOoOoO 
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f 

in 
BS S0bs 
Se 38 Goss 
g | 8 abe 
ac Ae BF Ganes 
“39 SP ogre 
Bo HR oe 
$$ 01 a 9 
z ne 


P.AAY: 


REGTABLE= 


2s: 


5$: 


»PSECT 
-ENTRY 


AX-11 Ol igece 
« SRCJRST 


DEBUG 
\ 
\ 
\ 
\ 
\ 
R 


P.AAX 


DBGSCODE ,NOWRT, 


D pacss tA. REGISTER_NAME, Save R2,R3,R4,R5,R6,- 


Pr 


39769551 


\RSTACCESS\<92>\REGISTER_NAME\ 


SHR, PIC,0 


D SGET_TEMPMEM, RB 

. a REGDESCR, #45 
REGDESCR+1, #16 
P.AAY 


RSTPTR 
MODRSTPTR 


SCOPENUM 

a’ DBGSSTA_NUMBERED_SCOPE 
MODRSTPTR 
MODRSTPTR 


6$ 
JNVOCNUM 
InvocNum 
ae. DBGSBUILD_ INVOC_RST 
RO, RSTP 

PATWDESC 
"DAGSSTA, SYMPATHNAME 


PA a 


£2. DRGEWPA 
R RO 


THES gt 
DBGSNPATHDESC_TO_CS 


it 6). we 
| sett TEMPMEM 


Nia 
aT 


RO 
@PATHSTRING, 


» LENGTH 


(NAMEPTR) 


3439 


3495, 
3496 
3498 


507 
508 


3510 


512. 
5140 


3517 


3518 


$530 


3522. 
3514 


ss 


34 


14 AE4S6 


50 
F2 


50 06 AC 
02 A647 


; Routine Size: 290 bytes, 
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1 ~300n 138% raat ey DEBUG. ERCTASTACCESS O39; 1 
5 0D 6$: PUSHL #5 
$8 1 FB A CALLS #1, DBGSGET_TEMPMEM 
0 D A MOVL RO, NAMEPTR 
6 D4 ie CLAL LENGTH 
2 A (7 7$: DIVL3s @ Q. SCOPENUM, TEMPNUM 
1 5 ie 8 SuBt §c0 em et m 
0 ¢ § B 5UBB =° oud TEMPSTRCLENGTHI 
D 8 NCL LENGTH 
0 BB STL 
2 1 BD BEQL sé 
52 0 p BF MOVL TEMPNUM, SCOPENUM 
g4 C2 BRB 
1 04 000C4 8S CLRL 
OA 11 00 C6 BRB 0$ 
56 1 § 0 (8 9S SUBL3. 1, LENGTH, RO 
614 16 AESO cc MOVE  TEMPSTRCROI, (1) CNAMEPTR) 
51 56 F3 00002 108 AOBLEQ LENGTH, I, 9$ 
01 A647 5c 6BF «690 00006 118 MOVE soft ¢. 1 (LENGTH) CNAMEPTR} 
02 A647 5 90 0000C MOVB #37. 2(LENGTH)CNAMEPTR 
56 2 g0 O0E1 ADDL2 #2, LENGTH 
50 05 AC 9A O00ES MOVZBL REGDESCR+1, RO 
50 00000000°EF40 DE O00E8 VAL REGTABLECROJ, REGPTR 
51 04 OOF CLRL «INDEX 
20 6140 91 000F2 128: CMPB (INDEX) CREGPTRI, #32 
09 13 O0F6 BEQL 138 
6 06 OOF INCL LENGTH 
6647 8140 90 OOOFA MOVE CINDEX) +CREGPTRI, (LENGTH) CNAMEPTRJ 
F1 11 OOOFF BRB 1 
03 06 AC 3 0101 13$:  BITB  REGDESCR, #3 
14 13 00105 BEQL 14 
01 A647 B 90 00107 MOVE #43, 1(LENGTH)CNAMEPTR) 
92 0 EF 010¢ EXTZv #0, #2 REGDESCR. RO 
0 0 81 O11 ADDB3 #48, RO, 2(LENGTH) CNAMEPTR) 
56 02 ¢O 0011 ADDL2 #2, LE 
67 56 90 00118 14$: MOVB LENGTH, (NAMEPTR) 
50 57 pO OO11E MOVL §§NAMEPTR, RO 
04 00121 RET 


Routine Base: 


DBGSCODE + 164E 
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3 4 ! GLOBAL ROUTINE DBGSSTA_SAME _DST_OBJECT(SYMID1, SYMID2) = 

: § 5 1 | FUNCTION 

3 1! This routine determines whether two SYMIDs refer to the same DST object. 
3 5 or 1° To do so, it checks that the corresponding RST entries have the same 

3 98 1! kind and the same DST pointer. (Data records and their t rs point to 
3 tf 288 : the same DST record; hence the kind must be checked as well.) 

: 3489 601 1 | INPUTS 

3 2 § : : SYMID1 = The SYMID of the first of the two symbols to be compared. 

: 49¢ 604 ; SYMID2 = The SYMID of the second of the two symbols to be compared. 

> 3494 606 1! OUTPUTS 

3; 3495 607 1! The value TRUE is returned if both symbols are of the same kind and have 
; 38 608 1! the same SYMID. The value FALSE is returned otherwise. 

3; 349 609 1! 

3; 3498 610 1 

3 3499 611 BEGIN 

; 3500 olg 

3; 3501 61 MAP 

: 206 614 SYMID1: REF RSTSENTRY, ' Pointer to first RST entry 

: rt, oi; SYMID2: REF RSTSENTRY; ! Pointer to second RST entry 

: 3505 e17 

3; 3506 618 

3 444 $13 Return the desired boolean value. 

: 3509 621 if (.SYMIDICRST$B_KIND] EQL .SYMID2CRST$B_KIND]) AND 

s 219 4 § (.SYMIDICRSTSL_DSTPTR) EQL .SYMID2 RSTSL_DSTPTRI) 

: 318 624 RETURN TRUE; 

3; 351 625 

3; 3514 6 § RETURN FALSE; 

3; 3515 6 

3; 3516 3628 1 END; 


0000 $008 ENTRY DBGSSTA_SAME_DST_OBJECT, Save nothing : 3593 

51 i , D0 0000 ROVE SYMIDI, : 3621 
14 Hi 4 et 8 A cas agcni) 20(RO) ; 

oc a0 0c oe of 11 CMPL 12cR1), 12(RO) : 3622 
04 ; 18 BNEO si} F 

50 1 v0 18 MOVL #i, RO ; 3626 

50 D4 OOOIC 18 CLRL =. RO > 3626 

Be 1€ RET : 3858 


; Routine Size: 531 bytes, Routine Base: DBGSCODE + 1770 
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16-Sep-1984 7:48:17 

12280-1382 et fer 
LOBAL ROUTINE DBGSSTA_SETCONTEXT(SYMID): NOVALUE = 


FUNCTION 
This routine sets up the gontrst needed for qupeoquent DST value spec 
evaluations. This specifically means determining the VAX CALL frame 
and associated register values which are to be used for evaluating value 
specs and td egg tae symbol addresses. This routine must therefore 
be called before routines DBGSSTA_SYMTYPE, DBGSSTA_SYMVALUE, and all 
routines of the form DBGSSTA_TYPE_xxx. Failure to do so may cause in- 
correct value computations. 


The gentent is defined by an input SYMID. The innermost inves able enti- 
ty (i.e. routine) in the environment of the symbol's declaration is 
looked up in the VAX CALL stack and the associated register set is loc- 
ated. If an invocation number is actecheg to the SYMID, that is taken 
into account. Context will not be established (and the previous context 
will be deleted) if the input SYMID is zero or if the fyapes 8 environ- 
ment is not precentty active. If context is not established, subsequent 
value specs may still be evaluated, but if they refer to any register 
values or locations (i.e., to any context) an error will be signalled. 


INPUTS 
SYMID 


AX-11 Ligecse 


8 Vv 
DEBUG. SRC IRSTACC 


- The SYMID of the symbol whose environment of declaration is to 
be used to define the context of gubecquent value spec. SYMID 
must be of kind RSTSK_DATA or RSTSK_TYPCOMP. If SYMID is zero 
no context is established. 


OUTPUTS 
NONE 


Ce meme mmm meme mmc es ms memes ee meet meet areresacecas osm G) 


BEGIN 
MAP 
SYMID: REF RSTSENTRY; ! Pointer to the input RST entry 


SPVALUE: REF VECTORL,LONG); ' Current CALL frame's SP value 


LOCAL 
CURRENT_REG: REF VECTORC,LONG), 


ENDADDR 


Pointer to vector of current register 
values (at top of stack) 
The routine's PC end address 


FRAME _FOUND_FLAG, Flag set to TRUE when a CALL frame for 
the desired routine is found 
FRAMEPTR: REF BLOCKC,BYTE), Pointer fo current VAX CALL frame 
INVOC COUNT, Number of invocations of routine 
found $9 far in CALL stack 
INVOCNUM rhe desired invocation number 
INVPTR: REF RSTSENTRY, Pointer to Invocation Number RST Entry 


CALL frame register-vector index 
Current CALL frame's PC value 


PEVAL 
MODPTR: REF RS 


TSENTRY Current Module 
REGMASK: BITVECTORE164 Register save week from the CALL frame 
REGPTR: REF VECTORL,LONG) Pointer to a register’s save location 
REGSAVELOC: REF VECTORC,LONG), 


Pointer to CALL frame register ave 


area for registers - RI 
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75 6 $ REGVEC: VECTORC17, LONG], ! Vector of pointers to gave areas for 
ug 6 ; the current frame's registers 
7 6 8 ROUTPTR: REF RSTSENTRY, ' Pointer to Routine RST Entry of rout- 
A 6 ! ine to look for in CALL stack 
6 , RSTPTR: REF RSTSENTRY, ' RST pointer from SAT entry 
69 RUNFRAME_PTR, ' Pointer to current entry in CALL com- 
1 69 ! mand runframe stack (needed by 
¢ 69 : the GET _REGISTER_VALUES routine) 
694 SATPTR: REF SATSENTRY, ' Pointer to Static Address Table entry 
5 695 ! or peg yote nested routine 
5 $96 SCOPE_IS_NUMERIC, ! Set to TRUE if context is a numeric 
69 ; scope, not an RST routine entry 
696 SCOPE _NUMBER, ' Scope number of the current context 
44 $99 STARTADDR; ' The routine’s PC start address 
590 701 ENABLE 
591 7 ¢ SETCONTEXT_ERROR_HANDLER; ! Set up error handler for this routine 
298 404 
ape A } If the input SYMID is zero, clear the current context and return. 
596 70 DBGSSCOPE_NUMBER = 0; 
597 708 IF .SYMID EQL 0 
399 499 THEN BEGIN 
600 711 CURRENT_REG = DBGSRUNFRAMECDBGSL_USER_REGS); 
01 ar DBGSREG_SYMID = 0; 
60 71 CR I FROM 0 TO 16 DO 
60 714 & BEGIN 
604 715 4 DBGSREG_VECTOR a = 0; 
605 216 4 DBG$REG_VALUESL.1] = .CURRENT_REGC.1); 
$9 18 _— 
608 719 RETURN; 
609 720 END; 
te 
ait 728 We have a non-zero SYMID. Make sure SYMID is of a valid kind. 
614 725 IF (.SYMIDCRSTSB_KIND] EQL RSTSK_TYPE) OR 
ai? 4 $ aides RSTSB_KINDJ EQL RSTSK_OVERLOAD) 
617 728 SDBG_ERROR("RSTACCESS\SETCONTEXT'); 
3 a 
620 731 ' Set the current context to ‘‘not established’’. We do this by zeroing all 
1 7 § ! the register save location pointers in DBGSREG_VECTOR. Also save the in- 
¢ 4 i put SYAID for later use in error messages. 
4 735 INCR I FROM 0 TO 16 DO DBGSREG_VECTORC.1] = 0; 
5 7 § DBGSREG_SYMID = .SYMID; 
$59 : 
628 7 5 ! Find the RST entry of the inner-most routine containing the deciaration 
9 740 ' of the SYMID symbol. If no such routine exists (because the symbol is 
741 ' declared at the module hoyel) return with no context set. If the con- 
1 742 ' text is a mumeric scope (i.e., the context N levels down in the VAX call 


10 
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¥O0-008 12286871382 95:48:36 {pe BUG. SRC RSTACCESS.832;1 
; ! stack), we simply set the SCOPE_IS_NUMERIC flag and pick up the value of 


! N from the module RST entry--thTs Ts how the context is set for register 
' symbols in a specified numeric scope. 


SCOPE IS_NUMERIC = FALSE; 
ROUTPTR = .SYMID; 
WHILE .ROUTPTRORSTSB_KIND] NEQ RSTSK_ROUTINE DO 


If ,ROUTPTRERSTSB_KIND] EQL RSTSK_MODULE 


UM ROE 
INVOCRUM"= .ROUTPTRERST$SL_MODSCPNUM); 
STARTADDR = 0; 

ENDADDR = &X'FFFFFFFE'; 

EXITLOOP: 


oa = .ROUTPTRCRSTSL_UPSCOPEPTR); 


SNS 
PEDDIE 
FAN DO OONOY SU" OWOOnNOur lw 


4 

4 

4 

4 

4 

4 
765 
76 ! If this is a regular routine scope (i.e., it is not a numeric scope for 
76 ' a register reference), pick up the routine PC address range and determine 
oe8 what the corresponding invocation number is (default is zero). 

1 
4 
4 


770 F NOT .SCOPE_IS_NUMERIC 

771 THEN 

77 BEGIN 

77 STARTADDR = .ROUTPTRERSTS$L_STARTADDR); 

774 ENDADDR = .ROUTPTRCRSTS$L_ERDADDRI; 

775 INVOCNUM = 0; 

77 IF .SYMIDCRSTSV_INVOCNUM) 

77 THEN 

778 BEGIN 

779 INVPTR = .SYMIDCRSTSL_SYMCHNPTR); 

780 INVOCNUM = .INVPTRCRSTS$L_INVOCNUM); 

781 END; 

78 

78 END; 

78S 

4] ' Initialize the PC, the Frame Pointer, the scope number, and the register 
44 } values to their current (top of stack) values. 


PCVAL = .DBGSRUNFRAME[DBGSL USER PC); 
FRAMEPTR = .DBGSRUNFRAMECDBGSL_USER_FP); 
SCOPE NUMBER = 0; 

CURRERT REG = DBGSRUNFRAMECDBGSL_USER_REGS); 


FROM 0. TO 16 DO 
REGVECC.1) = CURRENT_REGC.1); 


! Now search through the CALL frames on the VAX stack looking for the prop- 
' er invocation of the ROUTPTR routine or for the specified numeric scope. 
! Pick up all register save addresses in the stack along the way. 


<z 


—__-___ 
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RUNFRAME_PTR = .DBGSRUNFRAMECDBGSL_NEXT_LINK; 
INVOC_COONT = 0; 
WHILETRUE DO 

BEGIN 


LERRANLS 


PUNT BB BEBE EEE EE EE PAPI non 


! If we got to the bottom of the stack without finding the desired 


} invocation, return with the context not set. 


if (-PCVAL EQL 0) OR (.FRAMEPTRESFSA_HANDLER] EQL DBGSF INAL_HANDL) 
RETURN; 


BPE & EF AAAMMAAAAHIGIRPIPOPIPUNDNININPIDYD 2 OO OO OO OO 


! If this is a CALL frame of the routine we are looking for, increment 
' the invocation count. When that reaches the desired invocation number 
we have found the desired CALL frame and exit the loop. 


— GEQU .STARTADDR) AND (.PCVAL LEQU .ENDADDR) 
BEGIN 


! The PC from this CALL frame is in the address range of the routine 
! we are oon wae for. However, to make sure the PC is not really in 
' @ nested routine within the desired routine, we search the Module 
! SAT starting at the desired routine's SAT entry looking for nested 
' routines which cover the CALL frame's PC value. If we find such a 
' routine, the CALL frame is not for the desired routine. 


! 

FRAME_FOUND_FLAG = TRUE; 
SATPTR = 0; 

IF NOT .SCOPE_1S_NUMERIC 
THEN 


BEGIN 
SATPTR = .ROUTPTRCRSTSL_RTNSATPTR); 


WARNING -- We can get into trouble here. Previously, we have 
assumed that the SAT is always around. This may not be the 
case if this module has been canceled. There are times when 
the module could be canceled and then set —- to make us 
believe the the SAT is valid for this RST, but it is not! To 
correct the pred em, when a module is genceiee the field 
RSTSL_RTNSATPTR is set to ZERO for each routine. 

So if the module for this RST has been canceled, SATPTR will 
be zero from the above statement. The problem is that this 
assumes there are no nested routines that truly require the 
correct context information. s is, of course, WRONG. A 
way of saving and getting to the SAT information must be 
found in the future. 8.A. Becker MAY-1984 


DONA UNS UN $$ O ODBNOAUE WN SO ODONOUE UNO 0M 


SATPTR NEQ 0 
SATPTR = .SATPTRCSATSL_FLINK); 
END; 


meg ees ee mer eres es es es mr es mses 


fF. 
HEN 
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yOu-000 1 =300n 138i eet fee DEBUG. SACIRSTACLESS 08951 
; 3746 4 
3; 374 4 WHILE TRUE DO 
3 374 BEGIN 
; r 
: 37 ° ! If. there are no more SAT entries in the chain or if they no 
; 4 § } longer cover the PCVAL address, exit the SAT Loop. 
> 3754 if .SATPTR EQL_O THEN EXITLOOP; 
; f é IF .SATPTRESATSL_START) GTRU .PCVAL THEN EXITLOOP; 
; 37 
3; 3758 ! If this SAT entry is for a routine which covers the PCVAL 
; 3759 ! address, we clear FRAME _FOUND_FLAG because the PC is in this 
3 re : nested routine instead Of the routine we are looking for. 
; 76 RSTPTR = .SATPTRCSATSL_RSTPTRI; 
3; 376 IF (.PCVAL GEQU .SATPTRESATSL_STARTJ) AND 
3 37646 (.PCVAL LEQU .SATPTRLSATSL_END)) AND 
; re? g we RSTSB_KIND] EQL RSTSK_ROUTINE) 
: 3he9 6 BEGIN 
; 3768 6 FRAME _FOUND_FLAG = FALSE; 
: 3769 EXITLOOP; 
3; 3770 ; 
3; 3771 
3; 377 
: oe Link on to the next SAT entry. 
: 3775 5 SATPTR = .SATPTRLSATSL_FLINK]; 
3; 377 4 END; 
ou 
: 377 4 ' If the CALL frame we found really is for the desired routine, 
; 3780 4 ' check the invocation count. If this is the desired invocation, 
; 3781 4 ' exit the CALL stack loop. Otherwise, increment the invocation 
3 a ? : count and keep looping. 
: 3784 4 if .FRAME_FOUND_FLAG 
3; 3785 4 THEN 
3 786 BEGIN 
3; 378 IF .INVOC_COUNT EQL .INVOCNUM THEN EXITLOOP; 
; rs ? JNyOC COURT = .INVOC_COUNT + 1; 
: $950 301 ' 
3; 3791 90 END; 
; 379 90 
; 379 904 
3; 3794 905 ! We have not found the desired frame yet. Dig out the register save 
3; 3795 locations in this CALL frame and save those addresses in REGVEC. 
; 799 8 GET_REGISTER_VALUES(.FRAMEPTR, RUNFRAME_PTR, REGVEC); 
$99 3 
; 3800 31 ' Determine what the value of SP (the Stack Pointer) is for the current 
; 3801 ag ' CALL frame and save that in the OWN variable SPVALUE. Then make the 
; 3802 91 ' save-location pointer in REGVEC point to SPVALUE. (Since SP does not 
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16-Sep-1984 74 AX-11 Bliss-32 V4.0-74 
16-3ep-1984 96: 18; yy DEBUG. ACSASTACCESS $5; 1 
have a true save-location, the OWN variable fakes one.) 


REGPTR = _ PEGVECE 6 ji 
SPVALUE  ¢ RCO 
REGVECE14) = SPVALUE; 


! Dig out the values of PC and FP for the current CALL frame. Then 
increment the scope number and loop for the next stack frame. 


REGPTR = pat 
pyya.° 
Thane . 4 REGVEC 


SCOPE PNUMBER : crm * NUMBER * 13 


! We have found the CALL frame and thus the context we wanted. Set the 

: address of each register's save location in DBGSREG_VECTOR and the regis- 
' ter's value in DBGSREG_ VALUES. This makes the context available to the 

' yalue spec routines. Then set the scope number in DBGSSCOPE NUMBER and 
return to the caller. 
i 


NCR. I FRON 0 TO 16 DO 
ECPI = Sate [413 
pecHnE Gy vECTORE.1) = 


EGPTR NEQ 0 THEN RESET: VALUESC.1) = .REGPTRCO); 


DBGSREG_VALUES(16] = (. straps VALUESC16] AND 2xX*QOOOFFFF*) OR 
(, DBGSRUNF RAME [OBGSL -USER_PSL] AND %X'FFFFOO00"); 
poses core. NUMBER = .SCOPE NUMBER: 


DBGSPLIT,NOWRT, SHR, PIC,0 
<20>\RSTACCESS\<92>\SETCONTEXT\ 3 


»PSECT 


3 ASCII 
& 


vw 
ew 
ou 
mr 


43 41 5 
54 58 4 
-PSECT DBGSOWN,NOEXE, 

00050 SPVALUE:.BLKB 4 


PIC,2 


-PSECT DBGSCODE.NOWRT, SHR, PIC,0 


OFFC 00000 -ENTRY mth oe PS added Save R2,R3,R4,R5,R6, R7,=; 3629 


6 IAs CFE 00006 


maven S4LCSED, $3660 


RSTA 2 5 ae = ‘ 18-500-1 4 02:4 AX-11 Bliss<-32 V4.0-74 Page 115 
“¥O4=600 1 n30b-1$8e 93: iB: Hy DEBUG.SRCJRSTA cle SS. 633;1 ; (23) 


00000000" EF D4 CLAL paGssCOP NUMBER ; 37 
52 8? at 09 poy, ao 3 $507 
54 990000006 $6 9 1 MOVAB cease CURRENT_REG + 3711 
0 4 ps I cURL DBCSREG_ SYMID : rie 
0000000060040 D4 6 18 CLRL  DBSSREG_VECT Tore) ; a8 
0000000060049 6440 D D MOVL (CURRENT REG)CIJ, DBGSREG_VALUESCI) : 216 
EC 5 10 F 6 AOBLEQ TS : 371 
9 A RET : 710 
07 14 a2 i 2$ cnPe vs : 372 
0D 14 ne 9 41 CMPB (R2), #13 : 3726 
15 12 O43 BNEQ : 
00000000" EF 9F 00047 3$ PUSHAB P.AAZ : 3728 
1 DD 00040 PUSHL # ; 
00028362 8F DD 0004F PUSHL #164706 F 
000000006 00 FB 00055 CALLS #3, LIBSSIGNAL F 
D4 Oot 4$: CLAL 1 : 3735 
0000000060040 04 0005€ 5$: CLRL DAGSREG -YECTORCI ; 
5 50 19 F3 906 AOBLEQ #6 : 
00000000" EF 52 00 00 69 MOVL *pagshes SYMID : 373 
04 AE 04 000 9 CLRL Score. R : 37% 
53 52 D0 0007 MOVL ae AO R : 3748 
02 146 A3 91 00076 68: CMPB tROUNPTR). #2 : 3749 
22 13 QOO7A BEQL 3 
01 16 AS 91 0007C CMPB gO(ROUTPTR), a : 3751 
fs iF 0080 BNEQ ; 
01 28 «AB 0 é 0008¢ BBS #3, 4O(ROUTPTR), 7% : 3754 
4 000 RET : 
04 AE 01 DO 00088 7$: MOVL #1, SCOPE_IS_NUMERIC : 3755 
SA 20 a3 00 0008C MOVL § 32(ROUTPTR), ~INVOCNUM : 3756 
5B D4 9090 CLRL § STARTADDR : 3757 
08 AE 01 CF 0009 MNEGL #1, ENDADDR : 375 
06 1 0096 BRB 9$ : 375 
53 10 A3 00 00098 Bs: MOVL §§16(ROUTPTR), ROUTPTR : 376 
d8 11 0009C BRB 6$ 3 374 
18 04 AE €8 0009E 98: BLBS COPE_IS_NUMERIC, 10$ : 377 
58 18 AS DO OOOA MOVL EeROOTETRY. Se TASER : 377 
08 AE 1¢ «6A3 OD Ab MOV 8(ROUTPTR). ENDADDR : 3774 
| 5A D4 OO0AB CLRL I vOCNUM : 3775 
08 15 A 02 €1 OOOA C #2, 21(R2), 108 : 3776 
5 08 A2 00 0008 MOVL (Re) INVPTR : 3779 
A 1 AO OD B6 VL 4 CINVTR) INVOCNUM : 37 9 
5 9000000 G 0 D BA 10$:  MOVL  DBGSRUNFRAME+64, PCVAL ; 3? 
7 000000006 D C1 MOVL DBGSRUNF RARE + 6: FRAMEPTR : 37 
p4 (8 CLRL SCOPE NUMBER : 3791 
54 000000006 43 cA Boyne DBGBRONF RARE +4, CURRENT_REG ; re 
10 AESO 6440 D 0} 11$: MOVAL (CURRENT, REG)CII, REGVECEI) ; 
F6 10 F AOBLEQ ; 
OC AE 000000006 D D MOVL DAG RUT RARE. RUNF RAME _PTR ; 1 
D4 OO0E CLAL INVOC_COUNT ; 08 
dS £7 12%: TSTL  PCVAL : 381 
A £9 BEQL si ; 
50 000000006 9 9 EB MOVAB DG GSFINA L SHANDL RO ; 
67 D F CMPL FRAMEPTRY, R ; 


Es ¥ 10 
RSTACCESS 16-Sep-1 
¥O0- 000 12-3687} 
01 +1 F5 138: 
Watts 
58 i pi FB 14$ 
42 1F FB 
08 AE > pt OFD 
59 1 00 001 ; 
4 4 aE BB O01 
2 3 s ? i$ 
52 i p 112 15$: 
115 16$: 
se BG 
56 0c A2 00 O10 
04 A2 5 DI 1 1 
shiek ae WY 
™ 4 OF 33 Bbig 
9 D4 4 : 
07 9 €9 00135 178: 
5A : D1 00138 
13 91 B 
8 6 13D 
13 AE 3 Gotes 
57 DD oia8 
0000v CF 03 F O47 
54 48 AE 00 0014 
00000000" EF 64 b0 015 
48 AE 00000000' EF : O19 
54 4C AE 00 0015F 
55 64 DO 00163 
54 44 AE OD 0166 
57 64 00 16A 
FFSs Rf 16 
30 D4 00172 198: 
54 10 AESO 00 00174 208: 
0000000060040 34 p 179 
0000000060049 4 D 3 ‘nis 
0 000000006 00 OOOOF FFE f cB 18F ; 
1 000000006 00 ¢ 1 
000000006 00 0 1 C9 OO1A 
00000000' €éF 6E te AA 
0000 00182 22%: 
7E D4 00184 
5E bb 186 
7E 04 aC D 0018 
0000v CF 0 fe 18¢ 


8c 18:18:26 — Ebteus. SacSastactess.039; 1 


14$ 
P VAL. STARTADDR 
P VAL, ENDADDR 
#1, FRAME_FOUND_FLAG 
SATPTR 
OPE_IS_NUMERIC, 16$ 
(ROOTPTR), SATPTR 
(SATPTR), SATPTR 
4(SATPTR), PCVAL 


(SATPTR), RSTPTR 
VAL, 4(SATPTR) 


$ 

VAL, 8(SATPTR) 
(RSTPTR), #2 

AME _FOUND_FLAG 
AME“FOUND“FLAG, 18$ 
VOC-COUNT; INVOCNUM 
VOC COUNT 

UNF RAME_PTR 

AMEPTR 

GET REGISTER, VALUES 


VEC+56, REGPTR 
PTR), SPVALUE | 


; 


BPD De ee TT ON) — 0 ee 
~mOm 


MODBMwBVn va nwwDcmM 
axe 


-—Y-@w- wun 


I 
REGVECCIJ, REGPTR 
REGPTR, DBGSREG_VECTOR(I) 


Bele DBGSREG_VALUESCI) 


Save nothing 
= (SP) 


4(AP), =(SP) 
#3, SETCONTEXT_ERROR_HANDLER 


PES Oe Se Se Se Se Se Se Se Be Se See Se Se Se SSeS) Se Se Se Se Se Se Se Se Se Oe Be Se Se Se Be Se Be Be Se Be Se Be Se Be Be Se Se Se Se Se Se Se Se Se Se Be Se 
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; Routine Size: 450 bytes, Routine Base: DBGSCODE + 178F 


10 
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wet 


; 1 2 1 ! GLOBAL ROUTINE DBGSSTA_SETREGISTERS: NOVALUE = 

3 : 9 : 1 ! FUNCTION 

: 4 954 1! This routine renzete all register values in the current context (as 

; 5 955 1! established by DBGSSTA_SETCONTEXT) from the DBGSREG_VALUES vector. 

; $ 9 1; This is done by co ying each register’s value from DBGSREG_VALUES to 

3 9 1 } the register save location in the VAX CALL stack (or in the Debugger 's 
3 8 328 1! save area for the top of stack register set). The addresses of these 
; Bep 997 1? save locations is given by DBGSREG_VECTOR. This routine must be called 
; 3850 960 1! at the end of each DEPOSIT command since this is the command which may 
; 3851 +d : have changed the values of the registers in the current context. 

3 338 305 7% As a side effect, this routine also clears the current context. It is 
; 3854 964 1! thus necessary to call DBGSSTA_SETCONTEXT again before evaluating more 
; 3855 965 1! value specs containing register references. 

3 nes 208 : 3 

3 Se 967 1! INPUTS 

; 3858 968 1! DBGSREG_VECTOR and DBGSREG_VALUES are the implicit inputs. There are 
3; 3859 96 1! no input parameters. 

; 3860 970 1! 

3; 3861 971 1 ! OUTPUTS 

3 B6¢ 4h 1! NON 

3; 386 973 1! 

3 3864 974 1 

3; 3865 ae BEGIN 

; Bee 339 LOCAL 

3; 3868 978 REGPTR: REF VECTORE L068. ' Pointer to register save location 

3; 3869 979 PSWPTR: REF VECTORL WORD; ' Pointer to PSW save location 

; 3870 980 

; 3871 981 

3 a6 98 

; 387 98 ! Loop over the register set, re-setting all register values we can in the 
3 th oae : current context. Note that SP (R14) cannot be explicitly restored. 

r a78 oes DBGSREG_VECTORC14) = 0; 

3; 387 9 INCR I FROM O TO 15 DO 

3; 3878 988 BEGIN 

; 3879 989 REGPTR = Pocenns vECTORC.1); 

; 3880 990 IF .REGPTR NEQ 0 THEN REGPTRLO) = -DBGSREG_VALUESC.1]; 

3; 3881 991 DBGSREG_VECTORC.1] = 0; 

: Hy) 936 END; 

394 

3 5 995 ' Also re-set the Processor Status Word (PSW) in its save location. 

5 ' Then return. 

3 rt 99 ' 

: 998 PSWPTR = .DBGSREG VECTOR(16): 

> 3889 999 IF ,PSWPTR NEQ 0 THEN PSWPTRCOJ = .DBGSREG_VALUES(16); 

; 890 4000 DBGSREG_VECTORL16) = 0; 

3 91 4001 RETURN; 

3 a36 ra} 

3; 389 400 END; 
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es dt = Ho 34S bla 2 Save R2,R3 


DBGSREG_VECTOR R66, 
Matthias VECTOR+56 


bB $REG VECTORCIJ, 
, REGPTR 


ie 
POGSREG_VALUESCI J. 


wis, I, 1$ 

pacérec_ VECTOR+64, 
DBGSREG_VALUES*64, 
DBGSREG-VECTOR+64 
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LOBAL ROUTINE DBGSSTA_SYM_IS_LITERAL (SYMID) = 


G 

' FUNCTION 

: This routine accepts a etre identifier and determines whether 
4 the epee: nperoerers a literal value. The Sone information can 
: be obtained by calling SYMVALUE, but that royt ne per have 

: side effects. This routine uses the same logic as SYMVALUE 

: and its subroutines VALSPEC and EVAL_MAT_SPEC, but does © 

; not have the side effects associated with actually computing 
: the value. 
' INPUTS 

: SYMID = A Longword gyabol identifier eceytousty produced by routine 

: DBGSSTA_GETSYMBOL or DBGSSTA_GETSYMOFF. SYMID uniquely ident- 
ifies the symbol whose ‘‘value’’ is to be returned. 

| 

i 

i 

i 

i 


OUTPUTS 
The return value is one of: 
TRUE 


- The symbol does represent a Literal 
FALSE = The symbol does not represent a Literal 


BEGIN 


MAP 
SYMID: REF RSTSENTRY; 


Pointer to input symbol’s RST entry 


LOCAL 
BLITRLR: REF DST "ys vaaieent,, ' Pointer to Bliss DST record trailer 
BLIVALSPEC: BLOCK(8,ByYTE ' Value Spec buffer for Bliss special 
vs HDR_FIELDS), ! cases DST record 
: CORD ' Pointer to symbol’s DST record 
MSPTR: REF DSTSMATER SPEC, i Pointer to a Materialization Spec 


VSPTR: REF DSTSVAL_SPEC; Pointer to a Value Spec 


: If the input symid is zero, return ‘false’ for ‘‘does not represent 
' a literal’’. We need to check this here so we don't accvio later on 
in the routine. 


if .SYMID EQL 0 THEN RETURN FALSE; 


: If the RST kind is not data, then the symbol is not a Literal. 
if .SYMIDCRSTSB_KIND] NEQ RSTSK_DATA 

RETURN FALSE; 
' For RST records which are of kind data, obtain the DST record 
which holds the value specification and act accordingly. 


DSTPTR = .SYMIDCRSTSL_DSTPTRI; 
CASE. DSTPTREDSTSB_ TYPE FROM'O TO 255 OF 
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RSTA $s o=30 -1984 74 AX-11 Bliss-32 V4.0-74 Pa 121 
yOu-000 18-S0n-1984 96: ‘8: yy DEBUG. SRC cir STactess.049;1 ” 38} 
3908 rie 

: 954 4 i ' Handle all normal DST records, i.e. those of the standard format. 
3 ; 5 Z : Obtain a pointer to the Value Spec. 

: 39 5 4 06 Cosc$x_DTYPE_ LOWEST TO DSCSK_DTYPE HIGHEST, 

; 39 3 4 DSTSK-BOOL,~ a Hf ox g brace DSTSk LBLO te! 

; 395 4068 DSTSK_ENTRY G. pst TSB 

; 3960 4069 DSTS$K RECBEG, T3R “EMU 

3 3961 4070 VSPTR = gos! DST$B_ CFLAGS): 

Be BH 

: 964 1858 ! ety the Or ies Bodin Cases DST record. Construct a Value Spec 
3; 3965 4074 ' = > e VFLAGS and VALUE fields in the record (which are not adjacent 
3 Me tei? : He this sort icular record). 

; 968 4077 tosTsx BL13: 

: 3970 4079 BLIVALSPECCDSTSB VS VFLAGS) = .OSTPTRCDST$B BL I VFLAGS): 

3 3971 4080 ITRLR = pstel COSTSA_BLI_TRLRI STPTRIDSTS8_B be LNG); 

; 978 4081 Bt TVALSPEC DSTSL evs VACUEJ~ = BLITRLA DSTSL_BLI_VALUET; 

3 4h ret) VSPTR = BLIVALSP 

: ide rte: See the netmacs; hack in DBGSSTA_SYMVALUE. 

; 977 4086 if gVSPTREDSTSV_VS_VALKIND] EQL DSTSK_VALKIND_LITERAL 

: 3979 4088 VSPTRLDSTS$V_VS_VALKIND] = DSTSK_VALKIND_ADDR; 

3; 3980 4089 D: 

Bh 89 

; 388 $236 ' BLISS fields. Return TRUE = these are Literal values. 

> 3985 6094 tostsk BLIFLD): 

: Hy one? RETURN TRUE; 

: 3988 to99 ! Any other DST record does not represent a literal. 

: $990 1099 t INRANGE): 

: 3991 4100 RETURN FALSE; 

; 399 4101 

; 399 41 § TES; 

3998 4} 

: 996 4105 ! If we fall through to here, VSPTR points to a Value Spec. 

3; 399 a ! If the value is given by a preitinn Value Spec, we get to that Value 
3 +444 % Spec. We loop in case the indirection is repeated. 

: 4000 41 3 WHILE .vSP TREDST VS_VFLAGS) EQL DsTSK_ VELAGS vs 00 

3 doo ai9 VSPTR = VSPTRCBSTSA_VS_TVS_BASE TVSPTRCBSTSL_VS_TVS_OFFSET); 

: 6 411 

: 4008 t118 ! Jf the Value Spec gives rhe offset to a descriptor (in the DST), 

; 4005 4114 ' or the Value Spec is a Bit Offset Value Spec, then it does not 

: $208 ahi7 represent a literal. 

: t008 ang if .VSPTRCDST$B_VS_VFLAGS) EQL DSTSK_VFLAGS_DSC 
ie 
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OR .VSPTRCDSTSB_VS_VFLAGS) EOL DSTSK_VFLAGS_BITOFFS 
RETURN FALSE: 
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wr 


VINO OONOUNE WN “OC OONOuUs 


! If this is a Value-Spec-Follows value spec, a more complex value spec 
' follows the VFLAGS field. 


' 

' 

' 

LF  ;VSPTRCDSTSB_VS_VFLAGS3 EQL DSTSK_VS_FOLLOWS 
BEGIN 


ooo 


If the object is not statically allocated, then it is not a literal. 
if -VSPTRCDST$B_VS_ALLOC] NEQ DSTSK_VS_ALLOC_STAT 
RETURN FALSE; 


! If we get here, the object is statically allocated. 
Obtain the Materialization Spec. 


MSPTR = VSPTRCDSTSA_VS_MATSPEC); 
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34 ! If the Materialization Spec is of kind ‘'R-Value’’, then 
35 it is a literal. 

i037 alata hee niin EQL DSTSK_MS_RVAL 

4039 RETURN TRUE 

4040 

4041 ELSE 

404 RETURN FALSE; 

404 ND; 

4044 

4045 

4046 ! If we fall theougn to here, we have an ordinary garden-variety 

reat 4 Value Spec. If it is a literal, return true. 

rte} z gVSPTREDSTSV_VS_VALKINOJ EQL DSTSK_VALKIND_LITERAL 

4051 RETURN TRUE 

1088 

405 ELSE 

4054 RETURN FALSE; 

4055 1 ND; 


0004 ENTRY DBGSSTA_SYM_IS LITERAL. Save R2 3 4004 
af 08 C¢ SUBL2 #8, SP 3 

04 A D MOVL YMID, RO : 4045 
0 BNEQ $ : 
026F 3 0B 1$ BR 1$ 3 
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3 GLOBAL ROUTINE DBGSSTA_SYMKIND(SYMID, KIND): NOVALUE = 

FUNCTION 

This routine returns the Pde of a specified symbol. The symbol is 

represented oye, S7mRel identifier as produced by DBG$STA_GET YMBOL or 


A_GETSY The returned ‘kind’ is the same kind as originally 
produced by those two routines. 


0-74 Page 129 
O09351 390 38) 


—O0@n 


INPUTS 


SSSFER 


SYMID =A Longuord gyapek identifier pceytousty produced by routine 
006 STA_GETSYMBOL or DBGSSTA_GETSYMOFF. SYMID uniquely ident- 
ifies the symbol whose kind Ts to be returned. 


SELES PLES 


Px 
SSee 


KIND - The address of a longword location where the symbol's kind 
code should be returned. 
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4074 IND - The ‘‘kind’’ of the SYMID symbol is returned to KIND. This is 
ret $4 a small integer with the following possible values: 

407 RSTSK_MODULE -- SYMID is a Module 

4078 RSTSK_ROUTINE <== SYMID is a Routine 

4079 RSTSK_BLOCK -- SYMID is a Block 

4080 RSTSK_ENTRY -- SYMID is an Entry Point 

4081 RSTSK_LABEL -- SYMID is a Label 

ree] RSTSK_LINE -- SYMID is a Line 

08 RSTSK_DATA -- SYMID is a Data Item 

RSTSK_TYPE -- SYMID is a Data Type 
O86 No value is returned by DBGSSTA_SYMKIND. 
4088 
4089 BEGIN 
4090 
4091 MAP 
409 0 SYMID: REF RSTSENTRY, ! Pointer to the RST entry whose ‘‘kind’’ 
409 1 ° s to be returned. 
¢ KIND: REF VECTOR(1); ! Pointer to the location where the 

4095 : kind is to be returned. 


: 4098 


3 


! Make sure SYMID points to a valid RST entry (or at least seems to). Then 
: copy the entry's kind to KIND and return. 


iF .SYMIDCRSTSB_KIND) LEQ RSTSK_KIND_MINIMUM OR 
THEN IDERSTSB_KIND] GTR RSTSK-KIND_MAXIAUM 
$DBG_ERROR(*RSTACCESS\SYMKIND'); 


KINDCO} = .SYMIDCRSTSB_KIND); 
RETURN; 
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oe 


~m 
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be 18:18:26 


-PSECT 
ASCII 


-PSECT 


AX-11 Bligs-32 V4.0-7 
DEBUG. SRC IRSTACCESS. 835; 31 


DBGSPLIT,NOWRT, SHR, PIC,0 
<17>\RSTACCESS\<92>\SYMKIND\ 


DBGSCODE,NOWRT, SHR, PIC,O 

DBGSSTA agyMK IND. Save R2 
OcROS, R2 

Ree #13 

P.ABA 


#164706 
#3, LIBSSIGNAL 
R2, @KIND 


cS 
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tb-se 1984 02:48:17 AX-11 Bliss-32 V4.0-74 Page 131 
, 1 73007138 95:98:36 DEBUG. SRC Astactess.039;1 : 3) 
LOBAL ROUTINE DBGSSTA_SYMNAME(SYMID, NAMEPTR): NOVALUE = . 


FUNCTION: 

This routine eccepts @ symbol identifier and returns he corresponding 
symbol ’s — without any qualif get ion, The symbol identifier is the 
unique identifier produced by DBGSSTA_GETSYMBOL or DBGSSTA_GETSYMOFF. 
The returned symbol name is represented as a counted ASCII string. 


—> 4» 4 3 —) 4 _» a 


VFWN 0 OONO VUE W "OOOVOuU fur 


Since - routine does not produce a completely qualified, unambiguous 
name, it is primarily used to get the names of data record components. 
Such component names are needed by language-specific routines when 
printing the values of data records. 


INPUTS: 
SYMID = A longword symbol identifier previously produced by routine 
DBGSSTA_GETSYMBOL or DBGSSTA_GETSYMOFF. SYMID uniquely ident- 


ifies the symbol whose name Ts to be returned. 


NAMEPTR = The address of a longword location where a pointer to the 
symbol's name should be returned. 


OUTPUTS: 
NAMEPTR = A pointer to the counted ASCII yerine giving the srapet'e 
bottom level, unqualified name is returned to NAMEPTR. 


No value is returned by DBGSSTA_SYMNAME. 
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9 
40 BEGIN 
41 
re P 
4 SYMID: REF RSTSENTRY, ! Pointer to the RST entry whose name 
44 : string is to be returned. 
45 NAMEPTR: REF VECTOR(1); ! Pointer to the location where the 
$8 : string address is to be returned. 
; 
50 ' Make sure SYMID seems to pgict to a valid RST entry. Copy the address 
23 of the name string to NAMEPTR by calling GET_DST_NAME. en return. 
3g 60 if - SYMIDERSTS$B_KIND LSS RSTSK_KIND_MINIMUM OR 
3 1 a ees RSTSB_KINDJ GTR RSTSK_KIND_MAXIMUM 
56 $DBG_ERROR( *RSTACCESS\SYMNAME '); 
4 NAMEPTRCO) = DBGSGET_DST_NAME(.SYMIDCRSTSL_DSTPTRI); 
59 RETURN; 
60 6 
61 68 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
4E 40 59 53 SC 53 53 45 43 43 41 56 3 52 11 po tee P.ABB: .ASCII <17>\RSTACCESS\<92>\SYMNAME \ : 
45 4D 41 1FA 


6 EEE 
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«PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0004 00 ,ENTRY DBGSSTA YHNAME Save R2 : 4219 
3 % A 0 MOVL YMID, R : 4261 
D ‘ia a CMPB QcReS, a3 : 
15 18 A BLEQU ; 
00000000' EF 9F PUSHAB P.ABB + 6263 
00028362 8F pp 9001 PusHE . ; 
000000006 00 FB OOOIA CALLS # IBSSIGNAL : 
OC A2 DD 1 1$: PUSHL  12(R2) + 6265 
000000006 00 : FB 4 CALLS #1, DBGSGET_DST_NAME : 
08 Bc 0 p 028 MOVL RO, @NAMEPTR F 
4 0002F RET + 4268 
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11 
IBzSen-1984 02:48:17 YAKeIT Btigsc42 


GLOBAL ROUTINE DBGSSTA_SYMPARENT(SYMID) = 
FUNCTION 


This routine returns the parent data item of a record (structure) compo- 
nent. Thus, if there is a data item A.B(2).C, then the parent of C is 
B and the parent of 8 is A. A does not have any parent. This routine 
should onty be got tee when the data component has been looked up direct- 
ly in the RST via DBGSSTA_GETSYMBOL, as would be done in languages Like 
PL/I or Cobol where record qualification need not be explicitly stated. 


INPUTS 


SYMID = The SYMID returned by DBGSSTA_GETSYMBOL for the data item 
whose parent data item is to Be found. This symbol must 
be of kind RSTSK_DATA. 


OUTPUTS 


The SYMID of the input symbol'’s parent symbol is returned as the routine 
value. If the input symbol does not have a parent, i.e. if 
the input symbol is not a record component but a separate data 
item in its own right, zero is returned as the routine value. 


BEGIN 
MAP 

SYMID: REF RSTSENTRY; ! Pointer to input symbol’s RST entry 
LOCAL 

RSTPTR: REF RSTSENTRY; Pointer to the first up-scope symbol 


--this may be the parent symbol 


Make sure the input parameter is the SYMID of a Data Item RST Entry. 
if ,SVMIDCRSTSB_K IND] NEQ RSTSK_DATA 
SDBG_ERROR( *RSTACCESS\SYMPARENT'); 
! Get the first RST entry veneers from the input symbol. If this is a Data 
! Item RST Entry, return its SYMID as the routine value. Otherwise, return 
@ zero as the routine value. 
RSTPTR = , SYMIDCRSTSL UPSCOPEPTRI; 
IF RSTETR RST$B_KIND] EQL RSTSK_OATA THEN RETURN .RSTPTR; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC.O 


45 43 43 41 54 33 2g 3 BotED P.ABC: .ASCII <19>\RSTACCESS\<92>\SYMPARENT\ : 
54 46 4 1 0020C 


1 
& 


11 

voe-005 esep19be 13:18:26 EdeauG. SRcSASTAccESS.050; 1 
LPSECT DBGSCODE,NOWRT, SHR, PIC,0 
,ENTRY DBGSSTA,SYMPARENT, Save R2 


52 046 =#OA 8 MOVL 
06 14 «OA 0 CMPB genes, #6 
15 3 A BEQL 
00000000" EF 9F 000 PUSHAB P.ABC 
1 pd 0001 PUSHL ai 
00028362 fF OO 14 PUSHL 4706 
000000006 fF 1A CALLS wet th c37. 
10 A 3 1 1$ MOVE ii RSTPTR 
14 =A 5 CMPB s (RETOTAD. 
: 1 0 9 BEQL 
4 B CLRL 
4 00020 2$: RET 


; Routine Size: 46 bytes, Routine Base: DBGSCODE + 1(61 
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Pr 


LOBAL ROUTINE cla mete ina PATHNAME): NOVALUE = 


— a a 


ON 

This frution, accept +? nee B peamacid + and g cepurne 58 he corresponding 
symbol's fully qualified pathn ihe pyape ne! ‘ie 1s the unique 
ident tren produced by the DB $sTA_G GETS YM OL or DBGSSTA_GETSYMOFF rou- 
tine. The vetyraee pathname is represented in internal format by a 
pathname descr ptor which includes 4 symbol name with all possible 
pathname quer its cation and o} possible data record qualification. This 
does not include array subscripts, however. 


This routine is called when 6 symbol’s name is to be printed in a com- 
ete | a oo form. the Poturned pathname is not in a directly 

printable form, but can relatively easily be converted to a character 

string by language-specific routines. 


SYMID = A longword syebet identifier eceytousty produced by routine 
DBGSSTA_GETSYMBOL or DBGSSTA_GETSYMOFF SYMID uniquely ident- 
pees: the symbol whose complete pathname is to be returned. 


PATHNAME = The address of a longword location where a pointer to the 


Wie Ly Steet tery 
oO habeh. ste WN — OC OONOUE WAN “OOOO lew 


Sat ak et et ek ek eh he ek ek et ek ke ek ek ad ek ek eh ek ek eh et eh hk kh 
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Pot ot ot ot ot ot of ot ot ot et et et ek ee 


symbol’s pathname descriptor should be returned. 
OUTPUTS 
and a pointer to that descriptor is returned to PAT 
DEBUG command. 
No value is returned by DBGSSTA_SYMPATHNAME. 


ee ee tt tt tt et ett ts | 


BEGIN 


P 
SYMID: REF RSTSENTRY 


Pointer to input RST ent 
PATHNAME: REF VECTOR(1): 


PATHNAME = A full pathname descriptor for the SYMID symbol 4 
descriptor will disappear after the processing of the nt 


ry 
Pointer to returned pathname descr. 


LOCAL 
COMPCNT, Number of data components in pathname 
DATACNT Number of Data RST Entries in chain 
INVOC _Léc, Location in NAMELIST where invocation 


ye n SYMID 
INVOCNUM The invocation number 
INVPTR: REF RSTSENTRY, 

Pathname vector 


LIne _END Line end address (not actua of used) 
LINE“LWROS, Number of longwords needed 
number counted Asti 8 
LINE _NUM, The ie number used to id 
TOE? ext cal ent 
LINE _NUM_FOUND, Set tot mR Line eumber Yast entry 
in the : mbol's up-sco 
LINE _NUM_LOC, Locat ion .." NAMELIST before wh 


unter belongs (inner-most rout- 
s omy ivongent 


tself 
Pointer to reegg 3 ~ Number RST Entry 
nd 


ne number should be inserted 
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23 uvz 
2-0 


cnf 
AMEL S 
NAMEPTR: REF VECTOR »BYTE 
NO_NULL_NAME , 
NO_ROUTINE, 
PATHDESCR: REF PTHSPATHNAME, 
PATHVEC: REF VECTORC,LONG, 
RSTPTR: REF RSTSENTRY, 


STMT _NUM; 


12 Sep-1 74 

Vergepelobe 13:18:36 
TR: REF VECTORCE,BYTE),! | Tyenter to Line number counted ASCi 
6: VECTOR(4O, BYTE), 


AX-11 Bliss 


=32 v4 
DEBUG.SRCJRSTA 


ne start address (not actually used) 


| Vector used to build ASCII Line number 


Index of next location in LINE_ST a 


; Module R RST pointer (not actually used 
f: VECTORCDBGSK may LPATHWNAME]’ 


number of pathname components 

! Vector of pointers to names 
Pointer to current pathnane -fomgonene 

(as a Counted ASCII st 
Set - TRUE if no null lenteat wentity 

ame is in _up=scope chain 

Set to TRUE if inner-most routine has 
not yet been found up-scope 


' Pointer to Pathname Descriptor 
! Pointer to pathname vector in descr. 


Pointer to current RST wet 
Status code returned by called routine 
Statement number within Line number 


Initialize some pointers and counters for the up-scope chain Loop. 


RSTPTR = .SYMID; 
CNT 


NAME = 0; 

DATACNT = 0; 
LINE_NUM_FOUND = FALSE: 
LINE NUM LOC = 1000000; 
NO_NOLL_RAME = TRUE; 
NO_ROUTINE = TRUE; 


! Go up the at oy symbol's up-scope chain to determine how many pathname 


: components t 


e symbol has. We also determine how much data qualification 


! there is and whether a Line number needs to be supplied in the pathname. 


' 

i 

i 

i 

WHILE TRUE DO 
BEGIN 


! Get the name of the pathname component. Unless the name is null, 
save a pointer to the name string in the NAMELIST vector. 


NAMEPTR = pegsceT PE PEE ARTO TRIAS EL DSF ENED 


thei »-NAMEPTR 


ti I NAME NT GEQ D SS MAREPTR: THEN EXITLOCP; 


NAMEL IST NAME CNT 
= .NAMECNT es 
Ms 


: If this is a global symbol, 


exit the up-scope loop right away. 


if .RSTPTRCRST$V_GLOBAL) THEN EXITLOOP; 


CCE 


een 


1 
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3; 4327 44 

H 2 : re) § } Determine what kind of RST entry this is and act accordingly. 
; ) 9 6 5 CASE. -RSTPTRERSTSB_KIND] FROM RSTSK_KIND_MINIMUM TO RSTSK_KIND_MAXIMUM OF 
3 4 § 44 5 

3 4 46438 CRST$K_MODULE): 

3; 4334 4439 EXTTLOOP; 

3; 4335 4440 

3; 4 8 444) CRSTSK_ROUTINE, 

; 4 444 RSTS$K_BLOCK): 

; 4538 4445 & BEGIN 

3; 4539 4444 & IF .NO_ROUTINE AND (.NAMEPTRCO] NEQ 0) AND 

; 4340 4445 5§ (.RSTPTR RST$B_KIND] EQL RSTSK_ROUTINE) 

3; 4341 4446 4 N 

; 4 og 444 BEGIN 

3; 454 4448 NO_ROUTINE = FALSE; 

3 4344 4449 INJOC_LOC = .NAMECNT = 1; 

3; 4345 4450 4 END; 

3 4 re] 4451 4 

3 434 rei} 4 IF (.NAMEPTRCO) EQL 0) AND .NO_NULL_NAME 

; rt rt | 4455 4 THEN 

3; 4349 4454 5 BEGIN 

: 4350 4455 5 LINE_NUM_LOC = .NAMECNT; 

3; 4351 46456 : MODPTR =". RSTPTR; 

3; 4 2g 4457 IF DBG$PC_TO_LINE_LOOKUP( .RSTPTRCRSTSL STARTADDRI, 
; 435 4458 5§ ¥ NUM, 
3 4354 4459 5 LINE-START, LINE_END, MODPTR) 
3 4355 4460 5 THEN NO_NULL_NAME = FALSE; 

: 4356 4461 4 END; 

3 Tes 4462 4 

; 4358 446 END; 

; $323 4464 

; 4360 4465 7 CRST$K_ENTRY 

: 4361 4466 RSTSK-OVERLOAD, 

3; 4 ¢ 4467 RSTS$K_LABEL): 

: 636 4468 0; 

3: 4364 4469 

3; 4365 4470 CRSTSK_LINE): 

: 4 4471 LIRE_NUM_FOUND = TRUE; 

3: 4367 447 

3 4368 447 CRSTSK_DATA, 

3 4369 4474 RSTS$K_TYPE 

: 4 20 4475 RST$K-TYPCOMP): 

Hy 2 4 ret! IF .NAMEPTRCO) NEQ 0 THEN DATACNT = .DATACNT ¢ 1; 

3 4 g 4478 CINRANGE): 

3: 4374 4479 SDBG_ERROR("RSTACCESS\SYMPATHNAME *); 

3; 4375 4480 

3 437 4481 TES; 

3; 437 44 ; 

3; 4378 44 

: ? ‘7 3 Link to the next RST entry up-scope from this one. Then Loop. 
: 4 i 44 § RSTPTR = .RSTPTRCRSTSL_UPSCOPEPTR); 

3 4 ; 44 END; 

; 438 4488 


sls 
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D 12 
1e-Sep-19be 1:18:26 Eoeaue. SacSastacce 


: Determine how many levels of data qualification (e.g., 2 for M\A.8.C) 
there is in the pathname. 


if .DATACNT EQL 0 
HEN 
COMPCNT = 0 


ELSE 
COMPCNT = .DATACNT = 1; 


! If there already is a Line number in the pathname, do not insert an extra 
Line number due to a null lexical entity name. 


' 

i 

' 

IF .NOLNULL_NAME OR .LINE_NUM_FOUND THEN LINE_NUM_LOC = 1000000; 


! If we do have to supply a Line number in the pathname to identify an 
anonymous lexical entity, generate the Line number counted ASCII string. 


LINE_LWRDS = 0; 
TF c INE.NUM_LOC NEQ 1000000 


BEGIN 
LSI = 0; 


If there is a statement number, convert that to ASCII decimal. 


if .STMT_NUM NEQ 0 
THEN 


BEGIN 

eas pegeen NEQ 0 DO 

INE_STRINGC.LSI] = (.STMT_NUM MOD 10) + ‘0’; 
+ = LS] + 1; 

N 


co 
-_ 


MT_NUM = .STMT_NUM/10; 


mur n ow 
= 
. 


LINE_STRINGC.LSIJ = °.°; 
LSI = .LSI] + 1; 
END; 
: Convert the main statement number to ASCII decimal. 
WHILE .LINE_NUM NEQ 0 DO 
LINE _STRINGC.LSI] = (.LINE_NUM MOD 10) + ‘0°; 
LSI = .LS] + 1; 
LINE_NUM = .LINE_NUM/10; 
END; 


: Compute the number of longwords we will need for the Line number. 
LINE_LWRDS = (.LSI * 13)/4; 


c 


ee 
} 
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3 6661 4 46 END; 

Ge Og 

: 4444 4 rh ! Determine what the invocation number is. If it turns out to be zero, 
: rere $2 ? we do not explicitly put it in the Pathname Descriptor. 

466 4 iNVOCNUM = 0; 

: 4448 i § IF .SYMIDCRST$V_INVOCNUM) 

: rr 4 ¢ THEN EGIN 

: 6451 4596 INVPTR = .SYMIDCRSTSL SYMCHNPTRY: 

; 488 4 INVOCNUN = .INVPTRERSTSL_INVOCNUM); 

> 6454 455 , 

: 6455 4560 IF .INVOCNUM EQL 0 THEN INVOC_LOC = 1000000; 

Se 

: ret 4368 Allocate space for a Pathname Descriptor for the symbol. 

: 6460 6565 PATHDESCR = DBGSGET_TEMPMEM(DBGSK_PATHDESCSIZE + .NAMECNT + .LINE_LWRDS); 
3 4461 $266 PATHVEC = PATHDESCREPTHSA_PATHVECTOR); 

: ee re 

: 4664 4369 ! Fill in the Pathname Descriptor's header. 

3 4466 4571 PATHDESCREPTHSB_TOTCNT) = .NAMECNT; 

> 4467 47¢ PATHDESCREPTHSB_PATHCNT) = .NAMECNT = .COMPCNT; 

+ 6468 457 PATHDESCREPTHS$B_LOCINVOC) = 0; 

: 6469 4574 PATHDESCREPTHSL_INVOCNUM) = 0; 

ae ge 

: rey! 4377 Fill in the pointers to the pathname component names. 

> 4474 4579 J = 0; 

: 4675 4980 DECR | FROM .NAMECNT = 1 TO 0 DO 

+ 6477 4988 PATHVECL.J) = .NAMELISTC.1); 

+ 4478 45 Je .¢1; 

7 et 

; rrr} $258 If this is where the invocation number goes, mark that in the header. 
: ci88 its if ei! EQL .INVOC_LOC 

: 4 rh EGIN 

; tts ret 4 PATHDESCR PTH$B_LOCINVOC) = .J; 

: 4487 4398 4 PATHDESCRCPTHSL_INVOCNUM) = . INVOCNUM; 

+ 64 459 END; 

7 

: 4491 4996 ! If this is where the extra Line number goes, fill that in. 
; 4498 4598 iF? EQL .LINE_NUM_LOC 

tt96 rt ¢ OER NUM PTR = PATHVECC.NAMECNT + 1); 

+ 4497 4602 4 LINE“NUMPTRLO) = .LSI + 6; 


<2 | 
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Wb0-500 aR aets 1 96: +8: yy DEBUG. SRCIR sTackess 039s 9° (29) 
3; 6469 4603 4 LINE _NUM_PTR on 
3 44 4604 4 LINE -NUM-PTR = "L's 
: 4 4605 4 LINE-NUM_PTR 2 ‘|’; 
; 4501 46 4 LINE- UMTPTR 4) = 'N'; 
3 4 ¢ 46 4 LINE- UM_PTRLS) = ‘E'; 
3; 4 46 3 4 LINE- “NUM “PTRI6) = ° '; 
: 4506 46609 4 INCR"K FROM 1 TO .LSI D 
3 1 05 aeit 2 LINE_NUM_PTRC.K + 4 «LINE _STRINGC.LSI = .KI; 
3 ATHVECE.J) = .LINE_NUM_PTR; 
4 88 461 4 PATHVECL.J) 
; 4508 4613 4 Je. 41; 
: t2%8 4614 3 
: 2819 tele END 
: $8 ‘ei 
3 4516 1819 ! Finally return the address of the Pathname Descriptor to PATHNAME. Then 
3 ret re ? | return. 
: 4819 46 ¢ PATHNAMELO? = ,PATHDESCR: 
; URN; 
4518 46 RETUR 
; 4519 6626 
; 4520 4625 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
50 40 59 53 SC 53 53 45 43 43 41 54 53 52 15 00211 P.ABD: .ASCII <21>\RSTACCESS\<92>\SYMPATHNAME \ : 
45 4D 41 4E 48 5&4 41 00220 : 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 .ENTRY DOGSSTA, Sy SYROA TAME Save R2,R3.R4,R5,R6,- ; 4318 
5E FEFC CE 9€ 0000 MOVAB =260 (SP) ; 
5 04 AC 00 0000 MOVL ag ® : 4398 
52 DO 00008 MOVL a5" isl ; 
D4 000 CLAL NAME CNT ; 4399 
A D4 901 CLAL Ul NE NUR : 4401 
5B 000F 4240 F pO 1 MOVL #10000007 POUNE NUM_LOC > 440 
1 3 1 mova » NO _NUL L_NARE : 440 
1 OD 1¢ MOVL NO pROUTINE : 44 
0c ae DD OOO1F 18 PUSHL T2tngip : 4418 
000000006 98 fe g CALLS DaGscer _DST_NAME 3 
0 MOVL RO, NAMEPT 3 
ps C CLRL + 4419 
3 TSTB (NAMEPTR) : 
1 BEQL 2$ : 
D6 INCL RO : 
32 p 4 cnpt NAMECNT, #50 + 4422 
14 AEG3 D 9 MOVL NAMEPTR, NAMELISTCNAMECNT) + 4423 
D F INCL N > 4404 
21 1§ A2 € 28 BLBS Z21(RSTPTR), 4% > 4430 
} 
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18 OA 
000000006 99 
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Solas (ait . DEBUG. SRCSASTACCESS 859: 1 


CASEB ie TPTR), #0, #13 
WORD 
re 
Ee: 
O5-36,- 
9$- 7 
Sa $,- 
+ $,- 
105-38 
BRB 11$ 
BLBC NO_ROUTINE, 6$ 
BLBC ~=—s-s«aRO,- 6S 
CMPB pean, #2 
BNEQ 4 
CLAL NO raat 
MOVAB “INvoe LOC 
1STB taanie 
Be? us ean, 10 
MOVL §NAMECNT. Line hun. LOC 
MOVL  RSTPTR, 
PUSHL SP 
PUSHAB LINE_END 
PUSHAB LINE-START 
PUSHAB STMT—NUM 
PUSHAB LINE NUM 
PUSHL 4(RSTPT 
CALLS a, OBESPC, TO_LINE_LOOKUP 
BLBC 
CLRL = NO_NULL_NAME 
BRB 108 
MOVL “ LINE _NUM_F OUND 
BRB log 
BLBC ~=—_-«aRO,,_:108 
INCL DATACNT 
BRB 10$ 
PUSHAB P.ABD 
PUSHL i 
PUSHL aie 64706 
CALLS #3, LIBSSIGNAL 
MOVL  16<(RSTPTR), RSTPTR 
BRW 1$ 
TSTL DATACNT 
BNEG 128 
CLAL ¢ CNT 
BRB 4 
MOVAB =1(R7), COMPCNT 
BLBS | NO_NULL_NAME, 14$ 
BLBC LAE NUR _F OUND. 5$ 
MOVL #10000007 LINE_NUM_LOC 
CLRL = LINE_LWROS 
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ase 


QO0F4240 = BF 


7 OC AE 
50 53 r 
DB ADS 
OC AE 
D8 AD42 
7E 00 10 «AE 
50 50 43 
DB AD42 
10 «AE 
56 
51 56 
08 15 AS 
50 
5A 
54 
000000006 98 
9 
01 AO $3 
51 
6947 
a 
02 Ad 
04 Ad 
58 
5 
65 
4 A 
5 A 
56 3¢ 
06 A84 
FI 58 


5 

4 

5 

oc ; 

10 A 

: 

0 

E 

OD 0 

0 

08 A 

18 «OA 

000F 4240 : 

02 Al4 

0 

08 ; 

02 A 

06 =A 

5 

5 

4 

Va | 

04 A94 
4E494025 

gE | 

D8 AD4 
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AX-11 Bligs-32 V $9°36 
DEBUG. SRC ASTACCE $$.832;1 


L JNE.NUM_LOC, #1000000 
LSI 
in NUM 
STMT slum, of -(SP) 
i sP7 RO 
R ine OS TRINGCLSII 
ri , STMT_NUM 
#46, LINE _STRINGCLSIJ 
NE _NUM 
LINE NUM =(SP) 
ist (SPT+ 
PP tae 05 Oc s19 
ri , LINE_NUM 
$ 


13(R2), R6 
oH R6, LINE_LWRDS 


, pork 21$ 
tii INVOCNUM 


$4900000, INVOC_LOC 
(LINE SET TEER ee 


: 

8(RO) vee 

NARECAT, (PATA HDESCR) 

COMP NAME CNT, 1 (PATHDESCR) 
PaTnnesc 

4( PATHDESCR) 

NAMECNT, 1 

NAMELISTCIJ, (PATHVEC) CU) 
INVOC_LOC 

is 

% 2 (PATHD SCR) 

INVOCNUM, 4(PATHDESCR) 


LINE. 
{ecm reine. NUM_PTR 
8 $1 x abs 465, IRL, NUM. PTR) 

#826 (LINE _NUM 


$I 
“StnjgtRo), 6(K) CLINE _NUM_PTR) 


L 
CINE 
LSI, 7k, 
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; Routine Size: 


1b-5¢ -1984 02:4 AX-11 Bligs-32 V4.0-74 
eagee= 188s FS:FBi35 | HORSUS Bhi set eeee 28s. 
6947 5 pO 160 mOVL LINE NUM_PTR, (PATHVEC) (J) 
Bt 1 pe 1C¢ 27%: SOBGEQ 1, 238 
08 Bt 0 0 1¢ MOVL PATHDESCR, @PATHNAME 
4 0010 RET 


462 bytes, Routine Base: DBGSCODE + 1C8F 


<= | 


sis" 


Be Oe Be Be Se Se Se Se Be Se Bs Se Se Se Se Se Se Se Se Se Be Ge Se FF Se Ge Se Se Se SH Se Se FH Se Ge SH Se Se Se SH SH Ss Se Se SHS Se Se Se SH Se Se Se SH SH Ge ee 


4 4 
4338 ues 
i394 cbse 
4 $ 4650 
4 4631 
4528 46 § 
4529 46 
4 4634 
331 cess 
$e § rh $ 
4 4 5 
4535 46 
45 4640 
45 4641 
4538 re #4 | 
4539 464 
4540 4644 
4541 4645 
ry a | re 4 
454 464 
4544 4648 
4545 4649 
4546 4650 
4547 4651 
4548 $026 
4549 465 
4550 4654 
4551 4655 
$226 $028 
455 465 
4554 4658 
4555 4659 
4556 4660 
4557 4661 
4558 466 
4559 466 
4560 4664 
4561 4665 
£206 4666 
456 4667 
4564 4668 
4565 $98? 
208 4670 
456 4671 
4568 467 
$28? 467 
4570 4674 
4571 4675 
$276 467 
457 467 
4574 4678 
4575 4679 
$276 4680 
457 4681 
4578 4682 
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LOBAL ROUTINE DBGSSTA_SYMVALUE(SYMID, VALPTR, VALKIND): NOVALUE = 
FUNCTION 


INPUTS 


This routine soceesy a a pe identifier O76 Bag sed 9 petater to the 
gerresgending symbol's val ug. The Ren fier is the un ive 
dentifier produced by routine DBG$S Moet TS TMBOL or DBGSSTA_GETSYMOFF. 


This routine requires a ‘‘context’’ to have been qeveditebed by a call on 
routine DBGSSTA ~SeTCONTExT if there are ,any register references in the 
DST Value Spec which defines the symbol's value. If such a reference 
occurs and no context exists, an error is signalled. 


The interpretation of the value stored at the returned ety is up to 
the lLanguage-specific routines in Light of the symbol’s data type. The 
data type specification must therefore include all length information. 


SYMID = A lLongword s gyabet identifier Bersimorr: produced by routine 
beess A_GETSYMBOL or DBGSSTA ETSYMOFF SYMID uniquely ident- 
fies the symbol whose ‘‘value’’ is to be returned. 


VALPTR = The address of a three-longword vector to receive the value 
pointer and the corresponding stack frame pointer. 


VALKIND = The address of a longword location to receive the value kind. 


OUTPUTS 


VALPTR = . poincer to the desired value is returned to VALPTR. The 

pyte address of the value is returned to VALPTRLO) and the 

bit offset from that address is returned to VALPTR[1]. The 

corresponding stack Frame Pointer is returned to VALPTR(2). 
VALPTRL2) will contain zero if no frame pointer is applicable. 


VALKIND = The kind of the value pointed to by VALPTR is returned to 
VALKIND. These are the possible values: 


DBG$K_VAL_NOVALUE = The symbol has no value. 

DBGSK— ov “LITERAL = VALPTR points to a Literal value. 

DBGS$K— ADD - VALPTR contains an address. 

DBGS$K~ “VAL “DESCR = VALPTR contains the address of a 
descriptor. 


No value is returned by DBGSSTA_SYMVALUE. 


BEGIN 


Pp 
SYMID: REF RST 


CAL 
BLITRLR: REF ete gyrejuent.. Pointer t 


Pointer to iopyt geen I s RST entry 
Pointer to caller's value vector 
' Pointer to soles kind parameter 


SENTRY 
VALPTR: REF VECTOR C34 
VALKIND: REF VECTORL14; 
DST record trailer 

A. Bliss special 


ord 
Hack DST trailer 


to Blis 
wL VAL SPE BLOCK Value Spec buffer 
DST$v§ gtk FIELDS), DST re 


s 
er 
cases re 
CH_TRLR_ BIRe REF DSTSCH_TRLR, ! Pointer to COBOL 


Pa 44 
9 153 


; 


K 12 

RSTACCESS 16-Sep-1984 02:4 Ax-11 BLi 0-7 Pa 45 
YOu 000 ergeen18Be 98:58: 3, | Hoe ade Bhesesfackes?-o83. 1 9¢ 15) 
3; 4579 4683 DSTPTR: REF DSTSR onfor ! Pointer to syabol 's DST record 
; Z : rh ¢ VALLOC: REF VECTORL, LONG); ' Value location from Stack Machine 
3: 4 § 46 $ 
3 $2 46 
; 2 ¢ rh | Initially zero out the returned value pointer and frame pointer. 
3 é3 46 VALPTR 9 = 0; 
3 4 4691 VALPTR = 0; 
; 4588 469 VALPTRL2) = 
3; 4589 469 
3; 4590 4694 
3 t+ reed } Determine what kind of RST entry SYMID identifies and act accordingly. 
; 6398 tg99 CASE .SYMIDCRSTSB_KIND] FROM RSTSK_KIND_MINIMUM TO RSTSK_KIND_MAXIMUM OF 
3 $23¢ 4698 SET 
3; 4595 re 144 
3 $238 4700 
3 reds ris 4 ! For instruction addresses, return the start address in the RST entry. 
: 4599 20 inst -ROUTINE RSTS$K_BLOCK, 
+ 4600 7 RSTSK~ . RST T$K_LABEL, 
3; 4601 70 ReTSK" 
3; 460 70 BE tin 
; 460 70 VALPTRCO) = .SYMIDCRSTS$L STARTADORI; 
3 4604 70 ae 0] = DBGSK_VAL_ADoR; 
; 4605 70 RETURN 
; 4606 71 END; 
: 4607 71 
, 4608 71 
; 6 71 ! For Types, return the No-Value code to VALKIND. 

4610 71 ! 

4611 71 CRSTSK_TYPE): 

re 3 | 71 

461 71 VALKINDCO) = DBGSK_VAL_NOVALUE; 

4614 71 RETURN; 

4615 71 END; 

i 
1 


! For most other kinds (including Module) signal an internal error. 


LINRANGE , OUTRANGE J: 
$DBG_ ERROR (*RSTACCESS\SYMVALUE 10°) 


: For Data and Type Components, do nothing here--we handle them below. 
ERSTSK_DATA, RSTSK_TYPCOMP): 


TES; 


! Obtain the DST record describing this object. If there are 
continuation records then merge them into a single new DST record. 


DSTPTR = .SYMIDCRSTSL_DSTPTRI; 
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RSTACCESS 1heSe =1984 02:48:17 AX-11 Bliss<-32 V4.0-74 Pa 46 
Feu. 008 12-80 8-1 She at ey DEBUG.SR RCIR Stactess 039s | ae 395 
; 46 4740 

; 46 4741 

: iy 5K) ' For the items not yet handled (i.e., for data), we determine the type of 

3 rete ort? i DST record which holds the value specification and act accordingly. 

: 6641 4745 case .DSTPTRCDST$B_TYPE] FROM 0 TO 255 OF 

: tee apes ot 

: 4644 4748 

3; 4645 4769 ' Handle all normal DST records, i.e. those of the standard format. 

: rh $2 ? } Find the Value Spec and pass it to DBGSSTA_VALSPEC for evaluation. 

; 4648 47 § toscsk _DTYPE -t OW ST TO DSCSK_DTYPE wiee st. 

3; 4649 47 DSTSK “BOOL, TSK 0 AL DSTSk_LBLORLIT, 

3; 4650 4754 DSTSK-ENTRY OTs $R_R ae! TSR etRe EG, 

; 4651 i738 DSTSK-RE RECBEG, DSTSR. RIMES 

3 465 475 

3; 4654 4758 ' ALL these checks on the call to VALSPEC are here to allow the 

3; 4655 4759 i user to examine only registers after the completion of the user 

: ret ore } program. e.g. RO or EX O\R1 

: 46658 76 LOCAL 

$ re $4 rth Fs MODPTR : REF RSTSENTRY; 

; 46661 4765 MODPTR = ,SYMIDCRSTSL UPSCOPEPTR); 

3: 466 IF (.DeGsey CON ONTROLCOBG$V CONTROL _DONE]) AND 

3; 466 4767 AST3V REGISTER) A 

3 prec $78 4 SeMGOP TA NE Q 0) 

; 4770 : IF (.MODPTR RSTSV_MCDNUMSCP]) AND 

: 466 erry 4 (.MODPTR RSTSL~ _MCOSCPNUM) EQL 0) 

; 4669 477? DBGSSTA_VALSPEC(DSTPTRCDSTSB_VFLAGS], .VALPTR, .VALKIND, TRUE) 
; sent $77? ELS DBGSSTA_VALSPEC(DSTPTRCDSTSB_VFLAGS], .VALPTR, .VALKIND, FALSE) 
: 467 477 DBGSSTA_VALSPEC(DSTPTRCDSTSB_VFLAGS), .VALPTR, .VALKIND, FALSE); 
ers mes 

+ 667 4780 

: 467 4781 ' Handle the Label DST record. Here we get the Label address directly 

3 £678 rth § from the DSTSL_VALUE field--the DSTSB_VFLAGS field is not provided. 

; 4680 47 4 CostsK LABELJ: 

+ 468 47 VACTDDS .DSTPTRCDST$L_VALUE); 

3; 468 47 VALKINDCO} = DBGSK_VAL_ADBR; 

 eeBs i780 

; 4 47 

3 ry 4791 ' Handle the Bliss Spec tat Cases DST record. Coneteyes a Value Spe 

; 46688 $735 ' from the VFLAGS and VALUE fields in the record (which are not ahlasent 
; ree 9 or? ; in this particular record) and call DSGSSTA OVAL SPEC with it. 

: 6691 4795 CoST$K_BLI): 

3 4692 4796 BEGIN 


mM 12 
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; 4694 
; 4700 
47 
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4693 LOCAL 

46 MODPTR : REF RSTSENTRY 

4695 VSPTR: REF DSTSVAL_SPEC; 

469 
BLIVALSPECCDSTSB_VS_VFLAGS) = sOSTPTRCDST$B BLI_VFLAGS); 
BLITRLR = idl a. BL TRLRT + sDSTPIRCDSTSS BLI_LNG); 
BLIVALSPECCDSTSL_VS_VACUEJ"= .BLITRLRCDSTSL_BLI_VALUET; 


The following is a hack to ouacert BLISS BINDs. The 

reason for this hack is that BIND statements in BLISS 

can give rise to BLISS data whose DST type code is DSTSK_8L! 
(this means they are either blocks, blockvectors, vectors, 

or bitvectors), and whose valkind is “literal”. However, 

we want to treat these data items as if their valkind 

is ‘‘address’’. See the test TSTS:BLIBIND.* for an example. 

The reasons why valkind of “‘Literal’’ doesn't work for these kinds 
of BLISS data are too complicated to explain here; they have to 
do with our handling of Literals in general, a 

So, we change valkind “‘Literal’’ to valkind ‘‘address’’ right 
here, on the assumption that this only affects BLISS BINDs. 


SPTR = B VAL SPECCDSTSB VS_VFLAGS); 
regione DST$V_VS_VALKINDJ -EQL DST$K_VALKIND_LJTERAL 
VSPTRCDSTSV_VS_VALKIND] = DSTSK_VALKIND_ADDR; 


Oe om ee ee me mmm mmm 


' ALL these checks on the call to VALSPEC are here to allow the 
! user to examine only registers after the completion of the user 
} program. e.g. EX ZRO or EX O\R1 
MODPTR = ,SYMIDCRSTSL_UPSCOPEPTRI; 
IF Mitts CONTROLCOBG$V_CONTROL_DONEJ) AND 
(. SYMIDCRSTSV_REGISTERJ) AND 
-MODPTR NEQ 0) 


IF (.MODPTRERSTSV_MODNUMSCP]) AND 
(.MODPTRLRSTSL_MODSCPNUM) EQL 0) 


N 
DBGSSTA_VALSPEC(BLIVALSPEC, .VALPTR, .VALKIND, TRUE) 
ELSE DBGSSTA_VALSPEC(BLIVALSPEC, .VALPTR, .VALKIND, FALSE) 
- DBGSSTA_VALSPEC(BLIVALSPEC, .VALPTR, .VALKIND, FALSE); 


WWW 


CoOaone 


' Handle the Bliss Field DST record. Here we just return the address of 
the number-of-components field in the DST record. 


Costsk BL IFLD): 
VALPTRCO} = DSTPTRCDSTSL_BLIFLD_COMPS); 
VALE INO ] = DBGSK_VAL_LTTERAL; 
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' Handle the COBOL Hack DST Record. Here we evaluate the Stack Machine 
code in the DST record and return its value as the symbol address. 


{DSTSk_COB_HACK): 
BEGIN 


Se Go Ge Go Go Go CoCo Go 
mn 
WN —OOONOunes 


R_PTR = DSTPTRCDSTSA_ COBHACK_TRLR] * .DSTPTRCDSTSB_NAME); 
STACK Unk HINE (CH tty PTRCBSTSA_CH_STKRIN_ADDRJ, VALLOC, “VALPTRE2)) : 
4 eres ® VA ALCOC 
4864 VALPTR 1 
4 5 VALKINDL 1 = bacsk _VAL_ADDR; 
iBe 
4 re ' Handle the PSECT DST record. Here we pick the PSECT start address 
Z A } directly from the DST record. 
4 a COSTSK_PSECT): 
487 BEGIN 
4874 rm bet | -DSTPTRCDSTSL PSECT VALUE); 
4875 VALKINDCO] = DBGSK_VAL_ADBR; 
re {4 END; 
487 
487 
ri +94 Any other DST record causes an error to be signalled. 
4881 CINRANGE): 
ret} SDBG_ERROR(*RSTACCESS\SYMVALUE 20°); 
4884 TES; 
4885 
488 
488 ' We have the value. Now return. 
4888 ‘ 
4889 RETURN; 
4890 
4891 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


$3 3} rf: 33 22 }3 8 i P.ABE: .ASCII <21>\RSTACCESS\<92>\SYMVALUE 10\ 
rk} 43 41 54 53 $5 15 00230 P.ABF: .ASCII <21>\RSTACCESS\<92>\SYMVALUE 20\ 
32.20 45 55 4€ 41 0024 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
-ENTRY Besse TA syeve Ue. Seve R2,R3,R4,R5,R6 
emia: 8 ie Mae 


AC mova = SYMfD, R3 
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7 AX-1 
6 


be 18:18:2 


F 13 
16-Sep-1 
14-Sep-1 


sis 


Pee eT eT eee OL eee eT eT eee eT ee ELE eT eee ee es ee ee ee ee ee ee es es es es ee eS es ee ee ee ee ee ee ee ee ee) 


4765 


ees 4 4 ee ‘eee t #eeeevees #eeceeceeae 
AAAAAADAAARAAAAAAAAADOAAOAAOAAOAAOAAOAAOaaanaanaaaaanaaaaa®= 
DRARQRDAA ADA AD DAD DD. DD DDD DADA A A AAA AAA AAA AA AAA AAA AAAAAAAAAPAOOAS O 


ee 


AS DO 00265 7$: MOVL 


10 


50 


13 
RSTACCESS 1Sese =1984 02:48:17 AX-11 Bliss-32 v4.0-76 Page 154 
“vb4=600 12-808=18e ae ey OEBUG.EACSASTACCESS. 03551 9° 30) 
| 
51 02 a2 9 69 MOVAB 2(R2), R1 3 4773 
| 1¢ 6 g PF 60 BBct«éiKGY 66$4v_conTROL 9$ i 4766 
| 1 15 A 1 1 BBC #6, 21(R3), 9S + 476 
| Cs a — 
| O€ 28 =A 03 €1 0027A BBC #3, 4O(MODPTR), 9$ + 4770 
| 
20 Ap 08 4 Ist 3 (MODPTR) + 4771 
| 53 DD PUSHL #1 3 4773 
0c AC DD 8s: PUSHL VALKIND + 6775 
1 BB PUSHR #*M<R1,R4> : 
48 BRB 14$ : 
ze D4 D 9$: CLRL 0s = (SP) + 4777 
FS 11 F BRB 8$ : 
04 ar 04 A2 90 1 10$:  MOVB 4(DSTPTR), BLIVALSPEC + 480 
0¢ A2 9A 00296 MOV ZBL g (DSTPTR) + 480 
0 A04 4 9A MOV (RO)CDSTPTRI, BLITRLR : 
05S A 60 0 oF MOVL  (BLITRLR), BLIVALSPEC+1 + 4804 
5 06 AE 9 0 a3 MOV BLIVALSPEC, VSPTR + 4820 
03 60 9 A BITB  (VSPTR), #% + 6821 
0 12 OO2AA BNEQ «118 : 
60 02 0 1 £0 OO2AC INSV #1, #0, #2, (VSPTR) + 4823 
0 10 A3 00 000B1 11$:  MOVL  16(R3). MODPTR : 4830. 
15 66 06 €1 00285 BBC #6, DaGSGV CONTROL. 12$ : 4831 
10 15 Ad 06 F 0 89 BBC ! { 21(R3)> 128 : cB38 
09 28 =A 08 E1 00 cp BBC #3, 4O(MODPTR), 12$ + 483 
20 be 43 00568 Lak aitae — 
01 DD OO2CA PUSHL #1 + 4838 
2 11 002C¢C BRB 13$ + 4840 
E D4 002C 128 CLRL 0s =< SP) + 4842 
OC AC DD 00200 138 PUSHL VALKIND : 
54 pp 02D PUSHL R : 
10 AE 9F 0020 PUSHAB BLIVALSPEC F 
0000v CF 04 FB 0 D8 14% CALLS #4, DBGSSTA_VALSPEC Daal 
64 03 a2 9 0 DE 15$:  MOVAB 3(R2), (R4) : 4851. 
oc «BC 01 v6 0 i MOVL #1, aVALKIND 485¢ 
5 Bh ages oF a387 Ves: MOVERS BCRODEDSTOTRS. CH_TRLR_PTR — 
OB AS OOF 8 9 PUSHAB HEy§ ety, ry + 4862 
04 AE 9F OOF PUSHAB VAL LOC : 
1 AO OF re PUSHAB 1(CH_TRLR_PTR) : 
0000v CF 03 F F CALLS #3, STACK MACHINE ; 
64 0 BE D F MOVL aVALLOC, TR4) : 4863 
4 A DG CLRL = & (RS) 4864 
04 11 BRB 18$ > 4865 
64 03 A 06 17$: MOVL  3(DSTPTR), (R4) + 4874 
0c Bc 0 i 8 18$: ROVL #2, aVALKIND ‘ if 
00000000" €F 9F 00310 198: | PUSHAB P.ABF : 4882 
1 DD 1 PUSHL @# : 
gs zene HERE Fass | 
04 if RE ; 4891 


Dae Oe Be Se Oe Be Se Be Se Se Be Se Ge Se Se SH Se Se Ge Se Se Se Se Se Se Se Se Se Se Oe Be Be Oe Se SESH Se Fe Se SF Se FH SF Se Se Se Se Se ee Se SHS SH Oe Be St we 
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; Routine Size: 802 bytes, Routine Base: DBGSCODE + 1€5D 


Lister = TLISTPTREDBGSL_LINK_NODE_LINK) 


RETURN; 
END; 


RSTACCESS 1b-50 Sep-1 74 AX-11 Bliss-32 v4.0-74 Pa 56 
Yoo 12-800-}3he 96: 18: YM DEBUG.SR ROIR Stactess 03551 ; vas 1) 
3 $f 9 : 3 ! GLOBAL ROUTINE DBGSSTA_UNLOCK_SYMID(SYMID_LIST_PTR): NOVALUE = 

: 46791 4 32 1 i FUNCTION 

; 479 4895 1! This routine ' punbocks” a list of SYMIDs which have previously been 

3; 479 4 98 3 “Locked’’ in the RST by routine DBGSSTA_LOCK_SYMID. SYMIDs are locked 

; 47946 4897 1! in the RST when the corresponding RST éntriés aust t be preserved accross 
3 4795 4 38 7! pebup oqunents because they are referenced by ' (current location), 

: ores 4 1! breakpoints, or the like. They should then be unlocked’ when they are 
; 479 om 1: no longer so referenced, i.e. when °'."’ assumes a different value or the 
3 $738 Z 1 : } breakpoint is cancelled. 

: 4 09 4 : 1 The unlocking is effected f or. Gecregent ing the Reference Count in the 

3 4 4 1! SYMID’'s RST entry and all other RST entries whose reference counts were 
3 4 ¢ 4905 1! lasreneneed when the SYMID was originally locked. This includes all 

3 4 Z : : RST entries up-scope from the original RST entry. 

: 4808 1908 1} INPUTS 

3 oo0e 4909 1! SYMID_LIST Bh - A pointer to a Linked List of Linked List Nodes, where 
: 480 4910 1! @ach node contains a forward Link and a SYMID value. Each 

3; 4808 4911 1! SYMID on the List is ‘unlocked’ in the RST by decrement ing the 
3; 4809 reat 1! reference count of the corresponding RST entry. 

; 4810 491 1! 

EET th 

; tB18 4916 1: 

3 6814 491 1 

ible £319 sei 

> 4817 4920 LOCAL 

3 $38 $3 LISTPTR: REF DBGSLINK_NODE; ' Pointer to current Linked list node 

: 6820 49 

3 <83 4926 

3; 468 ‘ 4925 ! Loop through all the SYMIDs (i.e., RST pointers) on the Linked List. 

3; 482 49 $ i for each SYMID on the List, call ADD_TO_REF_COUNT to decrement the RST 

: rt : $3 entry's reference count. 

: 8 5 49 $ LISTPTR = .SYMID_LIST_PTR; 

3 rt i 4 4 0 WHILE .LISTPTR NEQ 0 Bo 

: 4829 49 ADD_TO_REF_COUNT(.LISTPTRCDBGSL_LINK NODE _VALUEJ, 

; 4851 

as 

> 4835 


Sl te te te 
ooovovod 


0004 ENTRY DBGSSTA UNLOCK SYMID, Save R2 : 489 
52 04 ac MOVL YMID_LIST_PTR; LISTPTR : 49 
10 1 1$: BEQL $ i 4930 
7E 01 CE MNEGL #1, (SP) : 49 
06 A2 00 PUSHL 4(LISTPTR) : 


0000v gf 


; Routine Size: 25 bytes, Routine Base: 


ALLS ve ADD_TO_RE 


bo 3eo- 1984 93:78:26 Eoeeuc. $k 
move (LEstPrR) {ist 
gre 


DBGSCODE + 217F 
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C 
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GLOBAL ROUTINE DBGSSTA_VALSPEC(VALSPEC, VALPTR, VALKIND, ACTUAL_REG_FLAG): NOVALUE = 


FUNCTION 
This routine accepts the address of a DST Value Spec as input and pro- 
duces the coreeepeneing veiue as output. t handles all the special 
cases of value specs, including stack machine value specs, to compute 
the proper output value. It requires a ‘'context’’ to have been estab- 
Lished by DBGSSTA_SETCONTEXT if there are any register references in 


<z 


the value spec. If such a reference occurs and no context exists, an 
error is signalled. 


INPUTS 
VALSPEC = A pointer to the DST Value Spec to be evaluated. 


1 3 

1! 3 

1! $ 

1! $ 

1! 3 

1! 3 

1! $ 

1! $ 

1! $ 

1! 3 

1! : 

Ss 3 

1! F 
49 § . | $ 
49 1! VALPTR = The address of a three=longword vector to receive the value 3 
$328 : } pointer and the corresponding stack frame pointer. : 
$328 ; VALKIND = The address of a longword location to receive the value kind. : 
rhe 1: ACTUAL_REG_FLAG = This is a flag indicating that the wetepes that we are : 
44 ; } looking at is an actual register (e.g. %R5) : 
4961 1 ! OUTPUTS 3 
4962 1! VALPTR = A pointer to the desired value is returned to VALPTR. The : 
4965 1! byte address of the value is returned to VALPTRLO) and the 3 
4964 1! bit offset from that address is returned to VALPTR[1]. The F 
4965 1! corcvspenc' stack Frame Pointer is returned to VALPTR(2). 3 
1308 : } VALPTRL2) will contain zero if no frame pointer is applicable. 3 
4968 1! VALKIND = The kind of the value pointed to by VALPTR is returned to é 
$388 : } VALKIND. These are the possible values: F 
4971 1! DBGSK_VAL_LITERAL = VALPTR points to a Literal value. : 
4972 1! DBG$K_VAL_ADOR - VALPTR contains an address. : 
4975 1! DBGSK_VAL_DESCR = VALPTR contains the address of a : 
4974 1! descriptor. $ 
4975 1! $ 
4976 1 $ 
497 BEGIN 3 
top p 
4980 VALSPEC: REF psTeve SPEC, ' Pointer to DST Value Spec to evaluate g 
4981 VALPTR: REF VECTOR(3] ' Pointer to value return location 3 
$386 VALKIND: REF VECTORL15; ' Pointer to value kind return location : 
49 LOCAL 3 
4985 REG FLAG, 3 
49 R ® , Register number : 
49 REGPTR: wef VECTORC,LONG), ! Pointer to register save location 3 
49 VALUE: REF VECTORC,LONG), ' Computed value 3 
rs VSPTR: REF DSTSVAL_SPEC; ! Pointer to current DST Value Spec : 
4991 NABLE 3 
rhs VALSPEC_ERROR_HANDLER; ' Set up error nandler for this routine J 
4994 BUILTIN : 
4995 ACTUALCOUNT; 3 
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Default fourth parameter to FALSE. 
IF ACTUALCOUNT() GEQ 4 

REG_FLAG = .ACTUAL_REG_FLAG 

REG_FLAG = FALSE; 
! Initially zero the returned frame pointer value in VALPTR(2]. This 
value will be changed later if a register is used in the evaluation. 
VALPTRE2) = 0; 


SeeSSeancssess 


! If the value is given by a pratt ing Value Spec, we get to that Value 
; Spec. We loop in case the indirection is repeated. 

VSPTR = .VALSPEC; 

WHILE .VSPTRCDSTSB_VS_VFLAGS] EQL DSTSK ove nee ays, OC 


VSPTR = VSPTRUBSTSA_VS_TVS_BASE) + SVSPTRCBSTSL_VS_TVS_OFFSETI; 


If the Value Spec gives the offset to a descriptor (in the DST), return 
the address of that descriptor to the caller. 


' 
i 
' 
IF i .VSPTRCDST$B_VS_VFLAGS] EQL DSTSK_VFLAGS_DSC 


BEGIN 
Ts = perraces ran VS_DSC_BASE] + .VSPTRIDSTSL_VS_DSC_OFFS); 


VALPT 
VALKINDCO) = “beck _VAL_DESCR; 
RETURN; 


' If this is a Bit Offset Value Spec, return that bit offset as a byte 
address plus bit offset to the caller. 
S_V 


if .VSPTRCDSTSB_V¥ 
THEN, 


OOOCOCOCOCOCOSOSOCOCSCO COSCO OOCOOoCooO 


FLAGS) EQL DSTSK_VFLAGS_BITOFFS 


POS a ban ~anbanhe ae 
oD MEW $9 ONO UNE WN" O OOWVOU Sw Oo 


cS 
mC C@wour lwo 0 


i: -VSPTREDSTSL_VS_VALUEI/8; 
VALPTREI) = -VSPIR qatpsrs $i aN vse ALUE) AND 7; 


If the VFLAGS field has the special code for ‘unallocated’, then 
put the code for ‘unallocated’ in the kind field and then 
return. This is the case, for example, for PASCAL variables 

that are never referenced. 


F .VSPTRCDST$B_VS_VFLAGS) EQL DSTSK_VFLAGS_UNALLOC 
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THEN 


VALKINDL Hi} 8; = loons _VAL_UNALLOC; 


If this is a Value-Spec-Follows value ret @ more complex value spec 
follows the VFLAGS field. Here we handle those kinds of value specs. 


F -jVSPTRCDSTSB_VS. vFLAGS] EQL DSTSK_VS_FOLLOWS 
BEGIN 


LESESSSESEESSRISASA 
COBNAL EWR OODNOUE 


} Sort out which particular kind of complex value specification follows. 
CASE. - VSPTREDSTSB_VS_ALLOC] FROM DSTSK_VS_ALLOC_STAT TO DSTSK_VS_ALLOC_DYN OF 


oO 
~ 
_ 


! Handle statically or dynamically allocated objects without Binding 
Specs. Here we Yust evaluate the Materialization Spec. 


COSTSK_VS_ALLOC_STAT, 
DSTS$K"VS"ALLOC_DYN): 


4 BECIN™ 
= EVAL _MAT_SPEC (VSPTREDSTSA_VS_MATSPECI, -VALPTR, .VALKIND); 


OOOCOCSCOCOCOCOCooooooo 
OOOO NNN 
WN —O OONOuUewty 


Any other value in the DST$B_VS_ALLOC field is an error. 


CINRANGE, QUTRANGE): 
SIGNAL (DBG$_ INVDSTREC); 


TES; 


SeNOue 


oo 
oo 


We are done with the complex value spec. Return to the caller. 
RETURN; 
ND; 


SSSFSFEIES 


his is an ordinary gorgen ye va rr y Value Spec with a normal VFLAGS field 
+ a normal VALUE field. & a literal, return the address of the 
iteral to the caller. 


_VSPTRCDSTSV_ VS_VALKIND) EQL DSTSK_VALKIND_LITERAL 


Mew 


Ho a at ne a tt ts 


WA piat YSPTACOSTSL VS_VALUE); 
VALP 
VALK INDE 


) = beGsx VAL LITERAL; 
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RETURN; 
END; 


! This value spec requires the value to be computed. 


VALUE = .VSPTRCDSTSL_VS_VALUE); 
1 gy SP TRCOSTSV_ VS_DISPIJ 


BEG! 
REGNUM = .VSPTRCIDST$V_VS REGNUM) 
IF . DBGSREG VECTORE .R REG NOM 
VALUE VACUE + .DBGSREG yarygst-e 
VALPIRG2). = .DBGSREG_VALUESL 


ooo[eoce 


IF .VSPTRCDSTSV_VS_INDIRECT] THEN VALUE = .VALUECO); 


RRRRRKEKE 


VALPTREO} = VALUE: 
IF riSPraCasty, VS_VALKIND] EQL DSTSK_VALKIND_DESC 
VALKINDCO) = DBGSK_VAL_DESCR 


Sss3s3s3s3332 
POPPA AP PAPA 
WNC UE w SOO 


LSE 

VALKINDCO) = DBGSK_VAL_ADDR; 
RETURN; 
END; 


oO 
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The resulting value is 
either the address of some object or the address of a descriptor. 


1) 

1 

aH ! If this is a register number, eeture ioe address of the ythgete J 
1 ' register save area. If the register not available in this conten 

Bie signal an error. (Note that we allow register 16 to mean the PSL.) 

818 if gVSPTRCDSTSV_VS_VALKIND] EQL DSTSK_VALKIND_REG 

018 BEGIN 

019 REGNUM = .VSPTRCDSTSL_VS 

020 IF (. REGNUM LSS 0) OR™(.R EGNUR R 16) THEN SIGNAL (DBGS$_INVDSTREC); 

° 1 a eaten VECTORC .REGNU un Gr AND NOT .REG_FLAG 

0 § Vv AL ShEC. SCOPE _E 

024 VALPTREO) = “pacsne. AVAL UeSE. REGNUM); 

025 VALPTR(1) = 

0 6 VALPTR : = ,DBGSREG VALUESC 32; 

0 VALKINDCO] = DBGSK_VAL_ADDR 

028 RETURN; 

029 ND; 

0 

031 

0 

0 


ub THe THEN VALSPEC _SCOPE_ERROR(); 


Return the computed value and its kind: address or descriptor address. 
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; Routine Size: 311 bytes, 
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DBGSCODE + 2198 
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19be 93:48: 


AX-11 Bliss-32 ve se- 286 
DEBUG. SRCIRSTACCESS .B832;1 


NAL 
TORCREGNUM) 


SPTR), VALU 
(VSPTR), 18$ 

#4, (VSPTR), REGN 
$REG_VECTORCREGNUM 


#0, VALSPEC_SCOPE_ERROR 
DBGSREG.VALDE SCRE GNA VALUE 
DBGSREG-VALUES+52, 8(R4) 

#2, (VSPTR), 19$ 

(VALUE), VALUE 

VALUE, (R4) 

#0, #2, (VSPTR), #2 

#3, @VALKIND 

#2, @VALKIND 


Save nothing 
-(SP) 


4(AP), =(SP) 
#3, VALSPEC_ERROR_HANDLER 


roe 
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VARPTR: REF RSTSVAR_ENTRY, 


Pointer to current RST Variant Entry 
VARSETTBL: REF VECTORL,LONG); 


Pointer to Variant Set RST Entry's 


33 


3 


pointer table, where each entry 
points to an RS 


So 


SELSSRALLES 


T Variant Entry 
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| RSTACCESS 16-Sep-1984 02:48:17 AX-11 Bliss-32 V4.0-74 Page 164 
¥00-000 1-Sep-19 4 95:8 36 OEBUG. SRCSRSTACKESS 03951 ° 3% 
ot ! GLOBAL ROUTINE DBGSSTA_VARIANT_SELECT(TAGVALUE, VARSYMID) = 
065 1 ' FUNCTION 
O08 1 : This routine accepts a tag value, i.e. the value of the tag variable 
06 1 : in a record with variants (as in PASCAL or ADA), and a pointer to a 
bo8 1 ; Variant Set RST Entry and it returns a poreres to the corresponding 
06 1 : variant in the Variant Set is selected by ae | tag value. If no 
5070 1 : variant is selected, meaning that the tag variable has an invalid 
071 1 ' value, a value of zero is returned. This is achieved by Looe ine 
ore 1 : over all the variants in the set and oe then DBGSSTA_VARIANT_VALUE 
of? : } for each variant to determine if the tag value selects that variant. 
S075 1 ! INPUTS 
076 1 ‘ TAGVALUE = The value of the tag variable to be used to select a 
5077 1 : variant in the Variant Set. This is treated as a longword 
anr8 ! } integer value. 
5080 1 ‘ VARSYMID = A pointer to the Variant Set RST Entry for the Variant 
5081 1 ; Set from which a specific variant is to be selected by 
et 1 : TAGVALUE. 
508 1 ‘ 
5084 1 ' OUTPUTS 
5085 1 : An pointer to the variant entry (obtained from the List in the Variant Set 
5086 1 ‘ RST Entry) is returned as the routine value. If no variant was selected 
rate t : } (invalid tag variable value), zero is returned. 
5089 1 
5 1 BEGIN 
5091 1 
5 § 1 P 
sad : VARSYMID: REF RSTSENTRY; ! Pointer to Variant Set RST Entry 
5095 1 LOCAL 
5 1 
5 1 
5 1 
; 
5 
5 


Check the Variant Set RST Entry pointer for validity. 
if ;VARSYMIDCRSTSB_KIND] NEQ RSTSK_VARIANT 
$DBG_ERROR( "RSTACCESS\VARIANT_INDEX"); 


' Search through the Variant Set RST Entry's table of variants. for each 
' variant, see if TAGVALUE falls into one of its tag value ranges, and if 
so, return the index of that variant. 

VARSETTBL = VARSYMIDCRSTSA_VARSETTBLI; 

INCR lea TO .VARSYMIDERST L_VARSETCNT) - 100 


BEGIN 
VARPTR = ,VARSETTBLE.1); 
LF DBGSSTA_VARIANT. VALUE (. TAGVALUE. .VARPTRERSTS$L_VAR_DSTPTR)) 


ooo 
oo D4 
PPP PPPS VSVDVSTUDVDVSUSUSDVLV SUSI SIV SUSVSVS USUI ISIS SUSIE SUAS IS IOSI SIS ISIS IS ISIOS ISIS ISIS IOS ISIS 
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e 
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3; Routine Size: 71 bytes, Routine Base: DBGSCODE + 22CF 


; 5120 1 RETURN .VARPTR; $ 
; 5121 ¢ 3 3 
: 2158 i 
; 5126 5 ! The tag value does not match the allowed tag values for any variant. 3 
5 : 5 § i we return a value of 0 to indicate that the tag value is invalid. 3 
3 91 § 8 RETURN 0; 3 
; 5128 9 3 
; 5129 0 END; 3 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 é 

49 52 41 56 SC 53 53 t2 43 43 41 54 53 52 17 O0g33 P.ABG: .ASCII <23>\RSTACCESS\<92>\VARIANT_INDEX\ g é 
58 4 44 4E 49 SF 54 GE 41 00262 3 é 

-PSECT DBGSCODE,NOWRT, SHR, PIC,0 $ 

003C 00000 ~ENTRY ates hh VARIANT_SELECT, Save R2,R3,R4,R5 » 5164 é 

54 08 aC pO 00002 MOVL 7, R4 : 5206 3 

08 14 A& 91 00006 CMPB your 4s wii 3 3 

15 13 QOO0A BEQL 1$ 3 3 

00000000° F OF BatS PUSHAB P.ABG ; 5208 é 

1 0D 0001 PUSHL AP 3 $ 

00028362 F DD 00014 PUSHL ares 3 3 

000000006 00 03 FB OQOOITA CALLS AseHt SSIGNA 5 $ 

5 18 AG 9E 00021 1$ MOVAB ge OTe RSET TOL $ 3313 é 

01 CE 00025 MNEGL Se . ; 5219. $ 

15 11 00028 BRB 3 3 

55 6243 D0 88 A 2% MOVL SvARSE TTeL ESI. VARPTR 3 2318 3 

65 Dd 000 PUSHL ie 3 5219 3 

04 AC 0D 000 PUSHL Lue F é 

0000v CF 9 43 00 CALLS ae DB STA_VARIANT_VALUE 3 ; 

04 E9 000 BLBC ; F 

50 55 DO 00038 MOVL CARPTR, RO + $221 : 

04 0003€ RET 3 3 

E6 53 08 A&G F2 OOO3F 38: AOBLSS 8(R4), I, 2% 3 5216) 3 

50 D4 00044 CLAL RO 3 2598 | : 

04 00046 RET ; 5230) : 
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VOe-000 18-301 98¢ 93:48:36 DEBUG. SREIASTACCESS.639;1 
; LOBAL ROUTINE DBGSSTA_VARIANT_VALUE(TAGVALUE, VARDSTPTR) = 


! FUNCTION 

This routine determines whether a given taq variable value selects a 
epec i tee record variant or not. This is done by looping through all 
the Tag Value Range Specifications in the variant’s Variant Value DST 
Record until a tag value or tag value range is found which equals or 
includes the specified tag variable value. If such a match is found, 
this routine returns TRUE; otherwise it returns FALSE. 


i INPUTS 

: TAGVALUE = The tag variable value. This value, treated as a longword 
integer, is compared to all the tag value ranges in the 
Variant Value DST Record. 


VARDSTPTR = A pointer to the Variant Value DST Record for the variant 
of interest. The Tag Value Range Specifications against 
which TAGVALUE is checked is taken from this DST record. 


i OUTPUTS 


G 
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' 
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i 
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If TAGVALUE selects the VARDSTPTR variant, this routine returns TRUE 
as its value; otherwise FALSE is returned. 
BEGIN 
Pp 
VARDSTPTR: REF DSTSRECORD; ' Pointer to Variant Value DST Record 
LOCAL 
HIGHBOUND, Upper bound given by the current Tag 
Value Range Specification 
LOWBOUND, Lower bound given by the current Tag 


Value Range Specification 
Pointer to DST Tag Value Renge Spec 
Value kind returned by DBGSSTA_VALSPEC 
Value pointer returned by STA_VALSPEC 
Pointer to current DST Value Spec in 
the current Tag Value Range Spec 
Pointer to the actual tag value given 
7 current Value Spec 
Value Specification length (used to 
find address of next Value Spec) 


RANGESPEC: REF VECTORC BYTE), 


VALKIND, 
VALPTR: VECTORC3), 
VALSPEC: REF DSTSVAL_SPEC, 


VALUEPTR: REF VECTOR(1], 
VS_LENGTH; 
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Check the Variant Value DST Record pointer for validity. 
if ;VARDSTPTRCDSTSB_TYPE] NEQ DSTSK_VARVAL 
$DBG_ERROR("RSTACCESS\VARIANT_VALUE'); 
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! Loop coreuye all the Tag Value Range Specs for this particular variant. 
! If one of those values or value ranges matches the TAGVALUE poreneter. 
' then we return TRUE, meaning that the specified tag value se 

! particular variant. 
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Liss-32 V4.0-74 Page 167 
heSastactess 035.1 oe 48) 
' 

RANGESPEC = VARDSTPTREDSTSA VARVAL_RNGSPEC); 

INCR len TO .VARDSTPTREDSTS$SW_VARVAL_COUNT] = 1 DO 


! Pick up the {iret (and poss toly ont ys value in the current Tag Value 
} Range Specification. Then advance VALSPEC past that Value Spec. 


VALSPEC = RANGESPEC(1); 

DBGSSTA VALSPEC (VAL PEC, VALPTR, VALKIND); 

VALUEPTR = .VALPTR(OJ; 

LOWBOUN 

HIGHBOUND = ,VALUEPTR 

VS_LENGTH = 5; 

IF~.VALSPECCDST$B_VS_VFLAGS] EQL DSTSK_VS_FOLLOWS 
VS_LENGTH = .VALSPECCDST$W_VS_LENGTH) + 3; 


VALSPEC = .VALSPEC + .VS_LENGTH; 


REN SSSLPSROL IESE 


! If this Tag Value Range Specification actually specifies a range, 
! we just got the lower bound of that range. Now pick up the upper 
bound of the range. 
IF RANGESPECCO) EQL DST$K_VARVAL_RANGE 

BEGIN 

DBGSSTA eet GS tlk VALPTR, VALKIND); 

VALUEPTR = .VALPTR(O): 

HIGHBOUND = ,VALUEPTREO); 

VS_LENGTH = 5; 

IF VALSPECCDSTSB_vS_VFLAGS EQL DSTSK_VS_FOLLOWS 

VS_LENGTH = .VALSPECCDSTS$W_VS_LENGTH] + 3; 
ya Sec = .VALSPEC + .VS_LENGTH; 
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See if the specified tag variable value is in the value range speci- 
fied by the current Tag Value aanes gests ress ren. If so, return 
TRUE. Otherwise, advance the RANGESPEC pointer to the next Tag Value 
Range Specification and loop. 


! 

i 

; 

i 

' 

if (. TAGVALUE GEQ .LOWBOUND) AND (.TAGVALUE LEQ .HIGHBOUND) 
RETURN TRUE; 


RANGESPEC = .VALSPEC; 
END; 


SSVSSSVSECRON US SaNonrwwoosS 
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! End of loop over Tag Value Range Specs 


= 


wn -00@ 


! The specified TAGVALUE does not select this particular variant, so we 
return FALSE. 


= 


(DR DPUDPP PV PUDPVDVLDVLVDVDVLDULVLDUDVSPVLPVLVDVDVST DVL V SV SIVSVSLUST SUSI STS US ISIS ISIS ISIS INSISTS OSI 
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; 5245 5 RETURN FALSE; 
; “3 rk 
; 4 4 END; 
49 52 41 56 SC 53 53 45 43 43 41 54 53 52 17 O00 P.ABH: 
45 55 4C 41 56 SF 5&4 4E 41 $0388 
03FC 00000 
5 10 C2 0000 
5 08 AC 5 00 
9D —SséBF 01 Ag 91 00009 
1 13 i443 
00000000" F OF 8004 
1 OO Bois 
00028362 F 0D 0001 
000000006 00 03 FB 4 $4 
53 08 AS 9E 00025 1$: 
58 06 A2 3C 00029 
56 01 CE 0002D 
68 11 00030 
52 01 AS 9E 00032 2%: 
5E dD 000 $ 
08 AE 9F 000 
52 DD 00038 
FESO CF 03 FB 0003D 
55 04 ag 1) 4k 
59 65 00 00046 
57 62 DO 00049 
54 5 00 0004C 
FD =s BF b¢ 91 0004F 
07 12 00053 
54 01 Ag 3c 00055 
54 9 4 0059 
3 $f Bites 5 
26 12 nite 
—E 00 Bee 
08 <AE 9F 00 
52 OD Obe 
FE12 CF 05 F $8 
55 04 ag i) 
57 6 i) 74 
0 é 5 Be Bier 
8 je 7 
2% 01 Ag 
4 9 C 
52 4 ¢ 087 4$: 


«PSECT 
ASCII 


-PSECT 
oENTRY 


AX=-11 Ot ieee Yo 0038 
DEBUG. SRC IJRSTACCESS.B32;1 


DBGSPLIT,NOWRT, SHR, PIC,0 
<23>\RSTACCESS\<92>\VARIANT_VALUE \ 


DBGSCODE,NOWRT, SHR, PIC,0 


DBGSSTA_VARIANT_VALUE, Save R2,R3,R4,R5,R6,- 
R7,RB,RO 

#6, §P 
VARDSTPTR, R2 
1(R2), #157 
P. ABH 

4 


#164706 

#3, LIBSSIGNAL 
B(R2), RANGE SPEC 
6(R2). RB 

#1, 

1(R3), VALSPEC 

SP 

VALPTR 

VALSPEC 

#3, DBGSSTA_VALSPEC 
VALPTR, VALOEPTR 
(VALUEPTR), LOWBOUND 
(VALUEPTR) HI GHBOUND 
#253 


#5, VS_LENGT 
(VALSPEC), 
1(VALSPEC), VS_LENGTH 
‘ ENGTH 
VAL SPEC 
7 


VS_ LENGTH 
{RANGESPEC) , 


VALSPEC 
#3, DBGSSTA_VALSPEC 
VALPTR, VALOEPT 
(VALUEPTR), HIGHBOUND 
#5, VS_LENGTH 
(VALSPEC), #253 


I<VAL SPEC) VS_LENGTH 
#3, VS_LENGTH 
VS_LENGTH, VALSPEC 


rome it 


sas 


; Routine Size: 


| 


91 


164 bytes, 


Routine Base: 


06 ac 01 
OA 19 

06 ac O01 
1 04 

2 

af 

bg 


DBGSCODE + 2316 


Lim 93:98:26 


AX=11 Bliss-32 V4.0- a3. 
DEBUG. SRCJRSTACCESS.B32;1 


nee TAGVALUE, LOWBOUND 
{QOL HIGHBOUND 
Ht be #1, RO 


RE 

MOVL §-VALSPEC, RANGESPEC 
AOBLSS RB, I, 2$ 

CLRL = RO 

RET 
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3 3 § ! GLOBAL ROUTINE DBGSTEST_ROUTINE_CALL( P1, P2, P3, P4 ) = 
: $251 1 ' FUNCTION 

3 § 1! DBGSTEST ROUTINE _CALL is a test routine to be called from 
; 1! the stack machine or DSTs, to test if the call to the routine 
: 4 7! is correct. 

5 5 4 1! 

3 $ 5 1! INPUTS 

s § 1! Pi - First parameter 

$ 3 1! Ps - Second parameter 

3 3 1! P5 = Third parameter 

; 5260 1! P4 = Fourth parameter 

; 5261 S32 

H 6¢ 61 1 ! OUTPUTS 

; 526 62 1! none 

: 5264 65 1! 

$ 65 64 1! SIDE EFFECTS 

3 ; $4 5 : none 

; 5268 H eo 3 BEGIN 

s 3 $8 é o8 

: 5 oy +4 RETURN P1 

; 3 72 3 714 END; 


0000 00000 .ENTRY DBGSTEST_ROUTINE_CALL, Save nothing : 5348 
50 04 Ac 9 00002 MOVAB P1, RO : 5369. 
04 00006 T : 5371 


; Routine Size: 7 bytes, Routine Base: DBGSCODE + 23BA 
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you 008 1 =300 71382 at fey DEBUG. SRC IRSTACCESS.B3 31 : oe i) 
; GLOBAL ROUTINE DBGSTRANS_TO_REGNAME (ADDRESS, NAME) = 
; FUNCTIONAL DESCRIPTION: 


1h) 
75 
7 


This routine determines if the input address corresponds to an address 
in the context register save area. if it does, a counted string of the 
register name is returned. This string includes the scope number. 


i FORMAL PARAMETERS: 


| 
oc 


ADDRESS - Address to be translated to a register name 


NAME = The address of a longword to contain the address 
of the resulting counted string. 


COCOONS 


NOU E WO OONOUSE UT 


i IMPLICIT INPUTS: 
DBGSREG_VALUES = Vector of context register save areas 
i IMPLICIT OUTPUTS: 


RAN SESSLERFAVSS 


Oo 
uw 


i ROUTINE VALUE: 
i An unsigned integer Longword completion code 
i COMPLETION CODES: 


PORE SEsESrassssEs 


i 
- 
‘ 
3 
3; 5 
i 
7 
i 
: 5 
i 


PUDPV PVP DVDV DVL DPV LULL PUDVUSV SV LVDUSTSVUSVSVSUSVSUSV STS SIVSVSUSVS ESV SVUSUSUS USSU ST SISOS VOSISOSIASIASIOSISIOSIOSIOS 


PRoRonononononononoNoNoNONOPONONDNID 2 2 2 9 9 9 Os 


i ; 
308 1 STSSK_SUCCESS - Success. Input address mapped to register name. 
305 4 STSS$K_SEVERE - Failure. Input address does not correspond to 
306 +88 context register save area. 
308 406 i SIDE EFFECTS: 
309 40 
10 408 NONE 
11 409 
\¢ 410 
1 411 BEGIN 
14 tig 
15 41 LOCAL 
16 - 414 INDEX, ! Index into arrays 
17 415 REGNAME _TABLE: VECTOR (68 LONG). ; Register name table 
18 218 CONTROLDESC: BLOCK (8,B8YfE), | $FAO control descriptor 
19 41 FAO_LENGTH: WORD ! $FAO output Length 
0 418 OUTPUT_DESC: BLOCK (8 BYTE). i Output descriptor for FAO 
1 419 OUTPUT“BUFFER: REF VECTOR C.BYTE); | Output buffer 
g 421 BIND s 
4 4 § FAO_STRING = UPLIT BYTE ("!UL!AC!AC'), ! SFAO directive string 
5 ? 7 SEP_STRING = UPLIT BYTE (ZASCIC ‘\%"); ! Separator string 
; Oe 
; 9 2 ; : Fill in the register name table. Note that this MUST be done at runtime. 
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EAD LAD LAS RAD A AREA Led A Sd a A 
229222222922922922 
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od 
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REGNARE “TABLE 


RERKREERERHEEREREREERSGS 
LVL VLVLVULVLVL VELL VALV LVL VEL VALV ALLL VASES ELAS VAL 


PAVESI EEE EY PETITE 
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REGNAME TABLE [57] = UPLIT BYTE (EASCIC '$Pe}1); 
REGNAME TABLE [38] = UPLIT BYTE (IASCIC $Peg*): 
REGNARE -TABL = UPLIT BYTE (HASCIC '$P¢8"D; 
REGNAME-TABLE £60) = UPLIT BYTE (EASCIC ‘PC'); 
REGNAME-TABL = UPLIT BYTE (ZASCIC 'PC+1"); 
REGNAME TABLE [6¢) = UPLIT BYTE (EASCIC 1PC+Q*): 
REGNAME “TABL = UPLIT BYTE (ZASCIC "PC+8"): 
REGNAME-TABLE [64] = UPLIT BYTE (ZASCIC ‘PSL"); 
REGNAME-TABLE (659 = UPLIT BYTE (ZASCIC "PSL#1"); 
REGNAME TABLE [66] = UPLIT BYTE (EASCIC ‘PSL+9"); 
REGNAME "TABLE (67) = UPLIT BYTE (ZASCIC "PSL#8"): 


! Check to see if the input address falls in the context register area. 
! If so, we format the scope number and register name in a buffer which 
we then return to the caller. We return with the status STSS$K_SUCCESS. 


if (ADDRESS GEQA DBGSREG_VALUES oy) AND 
Tel ADORESS LSSA DBGSREG_VALUES [17)) 


N 
BEGIN 


Calculate the register index and get a temporary memory buffer for 
! ASCII register name. 


lc 
CI 
INDEX = ADDRESS = DBGSREG VALUES (0); 
OUTPUT_BUFFER = DBGSGET_TEMPMEM(10); 


Set up the FAO call 


CONTROL_DESC [DSC$W_LENGTH] = ZCHARCOUNT ("!UL!AC!AC'); 
POINTER] = FAO_STRING; 
C$w_CENGTH) = (10 *"XUPVALS = 1; 
DSCS$A-POINTER] = OUTPUT_BUFFER (1); 


Format the scope number, the separator, and the register name. 


iF NOT SYSSFAO (CONTROL_DESC, 
FAO_LENGTH 
OUTPUT DES 
.DBGSREG SCOPE, 
SEP_STRIRAG 
-REGNAME_TABLE (.INDEX)) 


THEN 
SDBG_ERROR(*RSTACCESS\TRANS_TO_REGNAME "); 


Copy the count into the first byte of the output buffer and return. 
OUTPUT_BUFFER (0) = .FAO_LENGTH; 

. = ,OUTPUT BUFFER: 

RETURN STS$K_SUTCESS; 
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16-3 -1984 02:48:17 AX-11 Bliss-32 V4.0-74 Page 178 
1 =300 138% at fey oreuG enc TRSTACKESS. 08951 | . (37) 


H re $ 6 } ROUTINE ADD_TO_REF _COUNT(RSTPTR, INCREMENT): NOVALUE = 

: 5458 5 1 i FUNCTION 

; 5459 § 1 ! This routine increments or decrements the reference count field of a 

3; 5460 5 1! specified RST entry and alt entries reachable from that entry. An RST 
; 5461 2 8 Ee is “‘reachable’’ from a spec fed ontey if it is up-scope from that entry, 
; 546 7} if it is referenced by the RSTSL_TYPEPTR field, or it is a record com- 
3 re ts 289 ! } ponent or enumeration type element of the specified Type RST Entry. 

> 5465 26¢ | i INPUTS 

3; 5466 ae RSTPTR = A pointer to the RST entry whose reference count is to be 

: 5c 5365 } incremented or decremented. 

: 5469 266 1/ INCREMENT = The value to be added to the RST entry's reference count. 

3 a 2202 : Thus +1 increments the count and -1 decrements it. 

: 547 3369 1 | OUTPUTS 

; 547 570 1! NONE 

ER BAY 

> 5476 3258 BEGIN 

ER BAG w 

; 5479 5576 RSTPTR: REF RSTSENTRY; ! Pointer to the input RST entry 

aca 38 LOCAL 

; 2056 2356 COMPLST: REF VECTORL,LONG], ' Pointer to Type or Variant Entry 

; 548 5580 ! component List 

3: 5484 5581 INVOCPTR: REF RSTSENTRY ! Pointer to invocation number RST entry 
; 5485 2286 VARPTR: REF RSTSVAR_ENTRY, ' Pointer to a Variant Entry pointed to 
; 2058 558 ' by a Variant~-Set RST Entry 

3: 5487 5584 VARSETTBL: REF VECTORE,LONG); ! Pointer to list of variants in a 

3; 5488 5585 ! Variant-Set RST Entry 

5 rt 3386 

: 3eg4 at 

: se38 e434 Determine what kind of RST entry this is and act accordingly. 

; 5196 5591 CASE .RSTPTRCRST$B_KIND] FROM RSTSK_KIND_MINIMUM TO RSTSK_KIND_MAXIMUM OF 

3: 5495 2236 SET 

. 

: 5498 5595 ' Handle the Module RST Entry. We increment the reference count in 

3: 5499 2238 ' case this is a ‘‘numbered scope’’ Module RST Entry--such entries are 

; 5500 59 ' created for register symbols and are on the renperery RST Entry List. 
3; 5501 e208 ' Since a Module RST Entry terminates every up-scope chain, we return 

3 208 3600 here. This stops any up-scope recursion. 

: 304 601 CRSTSK MODULE): 

; 306 4 RSTPTRCRST$W_REF COUNT) = .RSTPTRCRSTSW_REFCOUNT) * . INCREMENT; 

; 550 6 RETURN; 

3; 5508 605 3 

tibet: 

: 5511 60 ! Handle all lexical entity and instruction label RST entries. Incre- 
; 5512 56 ! ment the RST entry's reference count and call ADD_TO_REF_COUNT recur- 


fF 15 
RSTACCESS 16-Sep-1984 02:48:17 AX-11 Bliss-32 V4.0-74 Pa 79 
¥O4-000 14-Sep-1984 eet fe {pe BUG. SRC ASTACCESS.03951 , nar 7) 
; 13 919 } sively to increment reference counts in the whole up-scope chain. 
: 5515 ele ERSTSK_ROUTINE, RSTSK_BLOCK, 
; 16 61 RSTSK-ENTRY, ks tax LABEL 
; 614 RSTSK INE. RSTS$K_OVERLOAD): 
; i$ oi8 RSTPTRCRSTSW_REFCOUNT] = .RSTPTRCRSTSW_REFCOUNT) + . INCREMENT; 
: ci ADD _TOLREF COUNT( .RSTPTRERSTSL_UPSCOPEPTRI, _ INCREMENT); 
; ; 61 , 
; 620 
; 4 621 ! Handle the Data and Tyee Component RST Entries. Increment the refer- 
; 5 6 § ! ence count and call this routine recursively for the up-scope pointer 
: § ? Z } and the type pointer (if non-zero). 
3 $5 8 ‘ 5 ERSTSK_DATA, RSTSK_TYPCOMP): 
: 2 0 6 $ RSTPTRCRSTSW_REFCOUNT] = .RSTPTRCRSTSW_REFCOUNT) + . INCREMENT; 
; 5531 628 ADD_TO_REF_COUNT(.RSTPTRCRSTSL_UPSCOPEPTR], . INCREMENT); 
3 : ; 56 4 If gRSTPTRERSTSL_TYPEPTR NEQ 0 
i 2 é 6 1 ADD_TO_REF_COUNT(.RSTPTRCRSTSL_TYPEPTR], . INCREMENT); 
; 33 is 5 END; 
: 5538 635 
3 22 9 5636 ! Handle the Data Type RST Entry. Increment its reference count. Then 
3 22¢9 637 ! call ADD_TO_REF COUNT recursively to increment the reference counts of 
3: 5541 638 ! the up=-scope chain and all record components or enumeration elements. 
3 2206 639 ! Note that we use a mark bit to stop infinite recursion which would 
: a7 eect } otherwise occur for enumeration types and possibly in other cases. 
; $545 sec CRSTSK TYPE): 
; 5547 5644 IF .RSTPTRCRSTSV_MARKBIT) THEN RETURN; 
: 5548 5645 RSTPTRERST V_MARRBIT) = TRUE; 
3; 5549 see8 RSTPTRCRSTS$W_REFCOUNT) = -RSTPTRERSTSW REFCOUNT) + . INCREMENT; 
3 2220 564 ADD_TO_REF_COUNT( .RSTPTRCRSTS$SL_UPSCOPEPTR], . INCREMENT); 
; 5551 2868 COMPLST = RSTPTRCRSTSA_TYPCOMPCST); 
; 223¢ 649 INCR I FROM 1 TO RSTPTRERSTSL _TYPCOMPCNT) DO 
; 227 2020 ADD_TO_REF _COUNT(.COMPLSTC.1 - 1], . INCREMENT); 
; 3555 5650 RSTPTRCRSTSV_MARKBIT] = FALSE; 
1. a: | 
; 5559 228 ! Handle the Variant-Set RST Entry. Here we call ADD_TO_REF_COUNT re- 
: 2260 203 } cursively to cover all record components of the parent type. 
; i 3639 {RSTSK_VARIANT): 
: 564 661 ADD_TO_REF_COUNT( .RSTPTRCRSTSL_VARTAGPTR], . INCREMENT); 
; 5565 O36 VARSETTBL = RSTPTRCIRSTSA VARSETTBL J 
; 296 66 INCR | FROM 1 TO .RSTPTRERST L_VARSETCNT) dO 
3; 556 664 4 BEGIN 
; 5568 5665 4 VARPTR = .VARSETTBLC.1 - 1); 
; 5569 5666 4 COMPLST = VARPTRCRSTSA_VAR_COMPLST); 


<2 | 
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; 5570 667 4 INCR J FROM 1 TO -VARPTRERSTS}_VAR_COMPCNT D0 
; q 208 4 ADD_TO_REF COUNT(.COMPLSTL.J - . « INCREMENT); 
; i 5 END; 
5 74 67 
5 75 67 END; 
3 78 67 
5 7 674 
; A of? } Any other kind should never show up here. If it does, error out. 
; 2 639 CINRANGE, OUTRANGE): 
; 2 or8 SDBG_ERROR("RSTACCESS\ADD_TO_REF COUNT 10°); 
: 558 680 TES; 
; 5586 eat 
3 2262 6 § 
; 5586 68 ! If there is an Invocation Number RST Entry following this one on the Sym- 
; e267 2058 } bol chain, increment its reference count also. 
: 3369 686 IF .RSTPTRLRSTSV_INVOCNUM) 
3 2290 68 THEN 
; 5591 688 BEGIN 
é 2296 208) INVOCPTR = .RSTPTRCRSTSL_SYMCHNPTRI; 
; 3394 690 IF . INVOCPTRCRST$B_KINDJ NEQ RSTSK_INVOCNUM 
; 3595 5692 SDBG_ERROR('"RSTACCESS\ADD_TO_REF_COUNT 20°); 
; 2399 5694 INVOCPTRCRSTSW_REFCOUNT] = .INVOCPTRCRSTS$SW_REFCOUNT] + . INCREMENT; 
; 5598 5695 END; 
3; 5599 2096 
3 2680 569 
; 5601 5698 ' We are all done--return. 
3 2008 rs 44 ‘ 
; 560 5700 RETURN; 
3; 5604 5701 
; 5605 5702 1 END; 
-PSECT DBGSPLIT.NOWRT, SHR, PIC,0 
44 44 41 SC 53 53 45 43 43 41 54 53 52 10 ooses P.AEB: .ASCII <29>\RSTACCESS\<92>\ADD_TO_REF_COUNT 1\ $ 
31 20 54 4E 55 4F 43 SF 46 45 52 SF 4F %9 B7h ascit ve : 
44 664 41 SC 53 53 45 43 43 41 54 53 52 10 oe P.AEC: <ASCII ¢33>\RSTACCESS\<92>\ADD_TO_REF _COUNT 2\ : 
32 20 54 4E 55 GF 43 SF 46 45 52 SF GF $3 41 : 
0 0042 ASCII NON 3 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
07FC 00000 ADD_TO_REF COUNT: 
WOR Save R2,R3,R4,R5,R6,R7,RB,RI,RIO ; 5553 
A 000000006 00 9€ 00 92 MOVAB LIBSSIGNAL, R10 ; 
9 F4 AF of ; MOVAB ADD_TO_REF_COUNT, R9 3 
6 04 AC D 0D MOVL RSTPTR> R6 : 5591 
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00000000' 
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My 1$ «WORD 
: 
0031 

oF PUSHAB 
0D PUSHL 
DD PUSHL 
FB CALLS 
11 BRB 
AO ADDW2 
04 000 RET 
AO ADDW2 
DD 00 PUSHL 
DD PUSHL 
11 0005 BRB 

AO 000 ADDW2 
DD Beet PUSHL 
DD 000 PUSHL 
FB 00066 CALLS 
) 0 TSTL 
13 000 BEQL 
DD BO08e PUSHL 
DD B88 PUSHL 
€B 00074 6$ CALLS 
11 00077 BRB 

1 00079 7$ BBC 

4 00070 RET 

: 44 8$: B1SB 
AO 00 ADDW 
0D PUSHL 
00 A PUSHL 
FB CALLS 
9E Vv 
D4 94 CLRL 
11 8 RB 
dD bs 94 PUSHL 
00 SHL 
Fe oF CALLS 
F Ag 108: aces ce 
oA A IcB 

1 AB 11$: 5 
0D AD 12%: PUSHL 
00 3] SHL 
FB 0008 CALLS 
9E 00086 VAB 
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you-008 1e-8ep-19 4 95:48:37 PreUG enc TRS TACKESS 08951 ; ve 483 
; ROUTINE CHECK _DUPLICATE(CANDLST, INDEX1, INDEX2, ARRAY_FLAG) = 


FUNCTION 
This routine is called from the SCOPE_RULE_XXX routines to try 
to resolve a potential ambiguity. That is, we have two candidate 
RST entries which are in scope and appear to be equally good. 
— = By tay signalling ‘‘NOUNIQUE’’ we may want to do some further 


S38 


One check is for these being static data having the same address. 
In this case, the duplicate RST entries really refer to the same 
entity and we can pick one arbitrarily. This situation arises 
with FORTRAN common blocks. 

Another situation where this arises is in BLISS, where the compiler 
wis ow out two DST records in the same scope in situations 

° e form: 


BEGIN 
LOCAL X; 


**" BEGIN 
LOCAL X; 


PAEAAAAASAAAAAA A 


MAMAN NINN SS 3 
UNEWN—OOBNAUEWN “OOO NOULWNR HO 


END; 
END; 
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: Here there really is an eubitourty which the BLISS compiler should 
: resolve by putting out block-begin block-end records, but since 
: it doesn't, we arbitrarily resolve the om go's by picking the 
last X. The same situation can arise with ‘MAP x’"’. 
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Another situation where this arises, also in BLISS, is where the 
same field definition occurs in many modules (perhaps because of 
REQUIRE or LIBRARY). Instead of signalling “‘NOUNIQUE”’ on this, 
we check for the field definitions oan identical values, 

and if so, just return one of the RST pointers arbitrarily. 


INPUTS 
CANDBLK - A List of candidate blocks. 


INDEX1 = Index into the candidate List for the first candidate. 
INDEX2 = Index into the candidate list for the second candidate. 


ARRAY_FLAG = If true, the symbol we are apmiy up was seen in a 
subscripted expression. This may be used to resolve 
poss 1ate ambiguities in BASIC, where it is legal to 

ave two variables of the same name, one a scalar 
and one an array. 


SSIS SIS95 
o 


5 ot et et et et te hb he 


COON NEW O ONO UE WO 0OOnN 


CNAME WO OONOAUEWN—O 


OA AA 


' OUTPUTS 
Return value is one of: 
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-1 : Indicates that there really is an ambiguity 


i fe Da tee he i ap Sep See BiB Bean tt te te be te be te ee ee ee i 
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one of the input parameters : means that the ambiguity was resolved 
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and this one was chosen. 


2323 


$ 1 

; 61 1 

; 6 BEGIN 

3 64 P 

3 rs 765 CANDLST: REF VECTORE,LONG); 

: 5671 76 Loc 

3 ore res R 6. 

; 567 7 BLITRLR1: REF DSTSBLI_TRAILER1, ! Pointer to Bliss DST record trailer 
3; 5674 5770 BLITRLR2: REF DSTSBLI_TRAILER1, ! Pointer to Bliss DST record trailer 
; 5675 en) CANDBLK1: REF CAND_BLOCKVECTOR, 

s ore ak rt : REF CAND_BLOCKVECTOR, 

3; 567 577 COUNTI, ' Count of BLISS field values 

3 o78 5774 COUNT2 ' Count of BLISS field values 

: 56 3773 DSTPTRi: REF DSTSRECORD, i Pointer to first DST record 

: ret] 78 DSTPTR2: REF DSTSRECORD, ' Pointer to second OST record 
3 1 577 FCODE1, ' fcode for first RST entry 

3 oes 5778 FCODE2, ! fcode for second RST entry 

; 568 5779 PTRI, ! Pointer to BLISS field values 
3; 5684 5780 PTR2 ' Pointer to BLISS field values 
; 5685 5781 RSTPTR1: REF RSTSENTRY, i Pointer to first RST entry 

s o06 2786 RSTPTR2: REF RSTSENTRY ! Pointer to second RST entry 

3 268 278 TMPRSTPTR: REF RSTSENTRY, ! Pointer to scratch &ST entry 
; 5688 27 4 TYPEID1, ' typeid for first RST entry 

3; 5689 785 TYPE ID2; ! typeid for second RST entry 

3; 5690 5786 

: 5691 5787 

3; 569 5788 BUILTIN 

3; 569 5789 ACTUALCOUNT; 

3; 5694 5790 

3; 5695 5791 

3; 5696 a . 

3; 5697 579 ! Set up the flag which says whether we are looking up a subscripted 
; 5698 5794 ' symbol. 

3; 5699 5795 ‘ 

; 5700 3738 IF ACTUALCOUNT() GTR 3 

3; 5701 579 H 

3 3708 5798 ARR_FLAG = .ARRAY_FLAG 

; 570 3233 

3; 5704 800 ELSE 

3; 5705 5801 ARR_FLAG = FALSE; 

5 3708 5 4 

3 278 : 0 

5 A pe Obtain the RST entries for the two potentially duplicate symbols. 
3 at! $806 CANDBLK1 = .CANDLST  JMDENI 1: 

3: 5711 é CANDBLK2 = .CANDLSTC.INDEX2); 

: 371 8 RSTPTR1 = .CANDBLK? 6. CAND _RSTPTRI: 

: grt? ; 10 RSTPTR2 = .CANDBLK2[0, CAND_RSTPTRI; 

: 5715 1 

3 HH $i ! The first thing we check for is whether these are two data items 
3; 571 1 ! with the same static address, or two literals or enumeration 

3 Ay 815 } elements with the same vaiue. 

; 3738 16 IF (.RSTPTRICRSTSB_KIND] EQL RSTSK_DATA) AND 
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: 5721 17 (.RSTPTRZ2CRSTSB_KIND] EQL RSTSK_DATA) 

3 f § 18 THEN 

; 5706 9 DSTPTR1 = -RSTPTRIERSTSL_DSTPTRI: 

3 f é DSTPTR2 = .RSTPTRZCRSTSL_DSTPTRI; 

: §7 

; 5728 4 ' Check for two static data items at the same address, or two 

3 9 5 } literals or enumeration elements with the same value. 

: 5731 5 4 iF ((C.DSTPTRICOSTSB_TYPE Gea DSCSK_DTYPE_LOWEST) AND (.DSTPTRICDSTSB_TYPE] LEQ DSC$K_DTYPE_HIGHEST 
: 57 é 8 4 ({DSTPTRICDST$B_TYPE) EQL DSTSK-SEPTYP) OR 

: 57 4 (,DSTPTRICDSTSB_TYPE) EQL DSTSK-ENUMELT) OR 

: f é 3 9 $ (.DSTPTRICDST$B~ <TYPE EQL DSTSK-LBLORLIT)) 

: §7 Sa é r ((. DSTPTRICDSTSB_VFLAGS] EQL DSTSK_VALKIND -ADDR? OR 

: 57 833 4 (.DSTPTRICDSTSB_VFLAGSJ EQL DSTSK-VALKIND-LITERAL)) 

: 3te8 He sag 

: 5740 3836 5 IF (((.DSTPTR2CDST$B_TYPE] GEQ DSCSK_DTYPE Lowest) AND (.DSTPTR2CDST$B_TYPE] LEQ DSC$K_DTYPE_HIG 
+ 5741 283 5 (.DSTPTRECDST$B_TYPE) EQL DSTSK_SEPT YP) 

; 3748 838 3 (. DSTPTRECDSTSB_TYPE) EQL DSTSK-ENUMELT) OR 

; 763 3859 ; (.DSTPTR DSTSB TYPE EQL DSTSK“LBLORLIT)) 

: 5745 5841 3 ((.DSTPTR ppsT$B_ VFLAGS] EQL DST$K_VALKIND_ADDR) OR 

3 746 384¢ (. DSTPTRECDSTSB_VFLAGS] EQL DST$K-VALKIND-LITERAL)) 

3 are 58435 4 THEN 

: 5748 5844 5 BEGIN 

: 5749 5845 5 IF (.DSTPTRICDSTSB_TYPE) aL .DSTPTR2CDST$B_ TYPE) 

: 5750 3846 & (.DSTPTRICDST$SB_VFLAGS) EQL .DSTPT elbst sO, VF Lage) AND 
3 3791 3847 § weg TPT DSTSL “VALUES EQL .OSTPTR2CDSTS$L_VAL 

; He 5849 5 RETURN .INDEX1; 

: 5754 5850 4 ND; 

: 5755 5851 END: 

i es 

; 3728 2828 Check for two BLISS data items at the same address. 

: 5760 2856 if (.DSTPTRICDST$SB_TYPE] EQL DSTSK_BLI) AND 

+ 5761 5857 4 ({DSTPTR2CDST$B-TYPE) EQL DSTSK~BLI) 

+ 3788 ae35 i . 

; 3764 3860 4 IF (.DSTPTRICDSTSB_BLI_SYM_TYPE) EQL sDSTPTR2CDSTSB BLI_SYM_TYPE}) AND 
> 5765 1 4 -DSTPT DSTSB-BLI-VELKGS) EQL DST$K_VALKIND_ADDR) AND ~ 

; 376 366 ; -DSTPTR2CDST$B_BLI_VFLAGS) EQL DSTSK_VALKIND “ADDR 

: 3788 BEGIN 

: 5769 5 BLITRLR1 = DSTPTRICOSTS $A.8L1_1 RLRI .DSTPTRICDST$B_BLI {NGI 
> 5770 BLITRLR2 = pst PTR2CDST$A BLI-TRLR1) + .DSTPTR2LDST$B BL I th 
3 4A TF .oLITALRI DSTSL_BLI_VALUET EQL .BLITRLR2COSTSL_BLT_VAC 

; 577 6 RETURN .INDEX1; 

: 5774 0 4 D; 

: 5775 71 END; 

: 577 re END; 

: 577 587 
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77 74 

a f } Check for two routines with the same address. 

781 if (.RSTPTRICRST$B KIND] EQL RSTSK_ROUTINE) AND 
7 (.RSTPTR2CRSTSB_KIND) EQL RSTSK_ROUTINE) 


N 
BEGIN 
IF_.RSTPTRICRSTSL_STARTADDR] EQL .RSTPTR2CRSTSL_STARTADDR] 


RETURN .INDEX1; 
END; 
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Check for a routine and an entry mask which are at the same 
address. this arises in PASCAL when we import a routine name 
from an environment file. We see a ‘routine’ DST in the module 
where the routine is really declared. We see an ‘‘entry mask’ 
DST in the module where it is imported. In this case we choose 
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the routine DST. 
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; 75 

: ig 

; 8 

g 8 

g 8 

3 

; H 

s SB 

3 5 889 

4 890 

3; 3 891 

33 B36 

: i 

: 5799 895 iF (.RSTPTRICRSTSB_KIND] EQL RSTSK_DATA) AND 

: 5800 896 CRSTPTR2 RSTSB-KIND] EQL RSTS$K-ROUTINE) 

: 380) 44 

: 3808 899 DSTP PTR! =, TeTRICRSTS _DSTPTRI; 

> 5804 900 IF (.DSTPTRI iipsise ty TYP oft DSC$k_DTYPE_ZEM) AND 
: 3805 901 4 Coster RICDST$B~ VFLAGS EQL DSTSk_VALRIND_ADDR) 
; S807 308 é BEGIN 

: 3809 288 ? IF ,DSTPTRICDSTSL_ VALUE] EQL .RSTPTRZ2CRSTSL_STARTADDR] 
: 5810 4 RETURN .INDEX2; 

: 3a $07 eno, 

; 3518 909 IF "RSTPTRICRSTSB_KIND] EQL RSTSK_ROUTINE) AND 

> 5814 910 (:RSTPTR2CRST$SB_KIND) EQL RSTSK~DATA) 
eB 

; $817 5518 oorR2 z RSTPTRACRSTS -DSTPTRI; 

: 5818 914 1H (. DSTPT a DST$8_TYP gaL DSC$k_DTYPE_ZEM) AND 
; 3819 915 4 gf: DSTPTR DST$B~ vFLAGSS EQL DSTSK_VALRIND_ADDR) 
: $3 1 319 4 NBEGIN 

3 4 918 4 IF F_DSTPTR2CDSTSL_ VALUE] EQL .RSTPTRICRSTSL_STARTADDR) 
+ 5824 920 4 RETURN .INDEX1; 

: ; 5 921 ND; 

; $ 9 § END; 

: Sa5a 982 

; 9 ; 5 : Check for language BLISS. 

: 5831 9 $ IMPRSTPTR = .RSTPTRI RSI$L PSCOPEPTR]; 

; ‘ 9 8 WHILE .TMPRSTPTRERST IND neg RST$K MODU E DO 

; 835 9 IMPRSTPTR = - TRPRETPTRERSTSL _UPSCOPEPTR 
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N 15 
16-Sep-1984 02:48:17 AX-11 Bliss-32 V4.0-74 
13-8 08-1 3be et ey DEBUG. ACTASTACCESS 03951 


Fe erm ee LAE EQL DBGSK_BLISS 


N 
BEGIN 


Check for duplicate data entries in BLISS. 
If ,RSTPTRICRSTSL_UPSCOPEPTR] EQL .RSTPTRZCRSTSL_UPSCOPEPTR] 


BEGIN 
IF_.RSTPTRICRSTSL_DOSTPTR] GTR .RSTPTR2CRSTSL_DSTPTRI 


RETURN .INDEX1 


ELSE 
RETURN .INDEX2; 


Next, check for two occurences of the same BLISS field. 
iF (.RSTPTRI RST$B_KIND] EQL RSTSK_DATA) AND 
— RST$B_KINDJ EQL RSTSK_DATA) 


BEGIN 
Fn Oe OE ETE EQL RSTSK_TYPE_BLIFLD 


BEGIN 
- en ae eee EQL RSTSK_TYPE_BLIFLD 


BEGIN 

DSTPTR1 = .RSTPTRI RSTSL_DSTPIR]: 

DSTPTR2 = .RSTPTRZCRSTSL DSTPTRI: 

COUNT] = .OSTPTRICOSTSL_GLIFLD_COMPS); 

COUNT2 = ,DSTPTRZCDSTSL_BLIFLD-COMPSJ: 

IF .COUNT? EQL .COUNT2 

THEN 
BEGIN 
PTRI = 1 + DSTPTRICDSTSB_NAME + .DSTPTRI DSTS$B_NAME]; 
PTR2 = 1 + DSTPTR2CDST$B_NAME] * .DSTPTR2LDSTSB_NAME): 
IF CHSEQL(.COUNTT, .PTR1> .COUNT2, .PTR2, 0) 

RETURN .INDEX1; 

END; 

END; 

END; 
END; 
END; 


Check for language BASIC. 


iF (. TMPRSTPTRERST$B_LANGUAGE] EQL DBG$K_BASIC) OR 
(, TMPRSTPTRERSTSB-LANGUAGE) EQL DBGSK"RPG) 


N 
BEGIN 


roe ig 


seas 


RSTACCESS 16-50 =1984 02:4 AX-11 Bliss-32 v4.0-74 Page 1 
¥Ou-000 2-808-13be 98: + He DEBUG. SRCIRSTACCESS. 63351 9° 38) 
9 IF (.RSTPTRICRST$B_K L RSTSK DATA? AND 
38 $89 weg RSTPTRCERSTSBZKIN BY Ee L RST He 
5 $31 BEGIN 
% 9 3 DBGSSTA_SETCONTEXT(.RSTPTR1): 
9 393 DBG STALSYMTYPE( -RSTPIR| FCODE1, TYPEID1); 
378 DBGSSTA-SETCONTEXT( .RSTPTR2) 
995 DBGSSTA-SYMTYPE( RSTPTR2, FCODE2, TYPEID2): 
900 99 IF (.FCODE1 EOL RSTSK_TYPE_ARRAYS AND 
901 99 ({FCODE2 NEG RSTSK-TYPE- ARRAY) 
90¢ 99 THEN 
903 99 BEGIN 
904 6 l -ARR_FLAG THEN RETURN .INDEX1 ELSE RETURN . INDEX2; 
309 600 IF (.FCODE] NEQ RSTSK_TYPE ARRAY) AND 
908 00 EQL RSTSK~TYPE ARRAY) 
909 6005 THEN 
BEGIN 
600 EG! 
600 IF »ARR_FLAG THEN RETURN .INDEX2 ELSE RETURN .INDEX1; 


Od ad od ed 
CONOUE WO 
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! If we fall through to here then we really have an ambiguity. 
i We indicate this by returning a -1. 


Re TURN -1; a 
END; 
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WO Save R2.R3,R4,R5,R6,R7,RB,RI,RI0,R11 > $703 

5B 000000006 3 9002 MOVAB DBGSSTA_SYMTYPE, R11 F 
3 9009 SUBL2 #16, SP : 
a ca | 
SA 10 AC 06 39 ROVE ARRAY_FLAG, ARR_FLAG 

| ew BRRUR fe i, z 
1 8? aca D 1 MOVL acAND §1(R7], CANDBLK1 : 
9 oC aC D é MOVL EX2, R9 : 
0 4 BC49 D MOVL aCANDLSTEROI, CANDALK2 ; 
‘ 61 D B MOVL (CA : 
5 $9 00 OV ‘ ANDBLK2). aS Tp IR 
06 4 AG 1 CMPE 0 (RSTPTRID, #6 
58 bg 0039 INCL = R : 


OFFC 00000 CHECK DUPLICATE : 
\ 
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RSTACCES 1b-5e =1984 02:48:17 AX-11 Bliss-32 V4.0-74 Pa 9 
yOu 008 1 =30P 71 3Re Peet ey DEBUG. SRC astactegs.035;1 oe 38) 
06 146 AS OY B CMPB (RSTPTR2), #6 : 5817 
"4 # BNEQ ; $ : 
C AB OD 4} MOVL  12(RSTPTR1), DSTPTR1 + 5820 
a p MOVL 12 (RSTPTR2). DSTPTR2 + 5821 
1 Ad 9A 00049 MOVZBL }{DSTPTRID, R1 + 5827 
9 15 40 LEQ $ : 
25 1 91 0004F CMPB RI, #37 : 
le 18 00052 BLEQU 4$ : 
ASF Gg 54 3%: CMPB R1, #163 ; 5828 
¢ 0 8 BEQL «6s 4$ ; 
AG BF i 9 A cHPe Ri. #164 : 5829 
BA 8F g¢ ¥ 865 CMPB sR, #186 + 5830 
46 12 00064 BNEQ 9$ : 
01 02 Ad 91 00066 4S: CMPB g(DSTPTRI), "1 + $832 
05 13 0006A BEQL t ; 
02 a3 95 0006C TSTB g(DSTPTR1) : 5833 
38 12 0006F BNEQ $ ; 
50 01 A2 9A 90071 5$: MOVZBL 1(DSTPTR2), RO : 5836 
: 15 00075 BLEQ 6$ ; 
25 50 91 00077 CMPBseaRO, #37 : 
3 1B 0007A BLEQU 7$ ; 
A3—soBF 50 91 0007C 6S: CMPBs«aRO, ~=#163 + $837 
O¢ 13 90080 BEQL «6s 7$ ; 
AG BF 6 91 00082 CMPBséRO, #164 : 5838 
06 13 0086 BECL 86 7$ ; 
BA 8F 0 91 0008 CMPB seaRO, #186 + 5839 
1E 12 0008C BNEQ 9$ : 
01 02 Ag 91 OO8E 7$: CMPB g(DSTPTR2), 7) + 5841 
05 13 0009 BEOQL $ ; 
02 Ag 95 00094 TSTB g(DSTPTR2) + 5842 
13 12 00097 BNEQ $ F 
50 51 01 00099 8s: CMPL = R11, RO + 5845 
OF 12 0009C¢ BNEO 9S ; 
02 A2 02 As 91 0095 CMPB =«-« 2A(DSTPTR1), 2(DSTPTR2) : 5846 
07 12 OOOA BNEQ 9$ ; 
03 A2 03 A3 D1 0005 CMPL 3(DSTPTR1), 3(DSTPTR2) > $847 
48 13 OOOAA BEQL «=-«113$ ; 
51 05 OOOAC 9S TSTL = RV : 5856 
af if 904 BNEQ  12$ F 
01 A2 95 0008 TSTB —s- 1(DSTPTR2) : $857 
2A 12 008 10$:  BNEQ 12% ; 
05 A2 05 A3 91 0008 CMPB  s S(DSTPTR1), S(DSTPTR2) : $860 
2 If OOBA BNEQ 12$ ; 
01 06 Ads 9 B CMPB  =s-s« &@(DSTPTR1), #1 + $861 
1D Ne 00CO 118 BNEQ 12$ ; 
01 04 Ag 91 000C¢ CMPB  s«M& (DSTPTR2), #1 + 5862 
17 12 C6 BNEQ 12$ ; 
50 3 A3 9A 000¢ MOVZBL (DsterR1) R : 5865 
1 A043 9E O00CC OVAB 3(RO)CDSTPfR1), BLITRLRI ; 
50 : A2 9A 00001 MOVZBL (DST TRe) R > 5866 
50 A042 9 D5 MOV (RO)CDSTPTR2), BLITRLR2 F 
60 ¢ D1 OOODA CMPL (BLITRLRT), (BLITRLR2) + $867 
: 1 DD BEQL Ss ; 
5 ps DF 12$: CLAL B8 ; 5877 
02 16 Ad 91 000E1 CMPB é (RSTPTRI), #2 : 
| OF 12 000E5 BNEQ «148 
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1278 08-13be et ey OraUG. RC SASTACC ESS B$551 9° 38) 
7 A2 9A OO1A MOVZBL 7(DSTPTR2), R : 5971 
3 8 A34 ze 1,3 MOVA aces) cosiptng). PTR2 : 
51 00 6 58 20 lac CMPCS COUNT, (PTR1). #0, COUNT2, (PTR2) + $972 
gf 13 00182 BEQL 26 ; 
04 29 AG 91 «(00184 228 CMPB ss G@ 1 ( TMPRSTPTR), #6 + $984 
06 13 00188 BEQL 23% ; 
08 29 AG «91 ~OO1BA CMPB ss G 1 (TMPRSTPTR), #8 _ 3 $985 
57 j 18 BNEQ 7$ eo: .. 
06 16 Ab 1C0 23$:  CMPB Q(RSTPTRI), as, : $988 
51 12 0014 BNEQ 3 ; 
06 16 AS 91 00106 CMPB Q(RSTPTR2), #s + $989 
48 12 OO1CA BNEQ 4 : 
56 DD O01CC PUSHL RSTPTRI + $992 
FEES OCF oN FB OOIC CALLS #1, DBGSSTA_SETCONTEXT : 
—E DD 001D PUSHL SP + $993 
08 AE 9F 001D PUSHAB FCODE1 : 
36 DD 00108 PUSHL RSTPTRI : 
6B p FB OO1DA CALLS #3, DBGSSTA_SYMTYPE : 
5 0D 00100 PUSHL R > §994 
FEEDS CF 01 FB 001DF CALLS #1, DBGSSTA_SETCONTEXT : 
08 AE 9F OO1E4 PUSHAB TYPEID2 + 5995 
10 AE 9F OO1E7 PUSHAB FCODE2 : 
55 DD QOTEA PUSHL RSTPTR2 : 
68 03 FB OO1EC CALLS #3, DBGSSTA_SYMTYPE : 
01 04 AE 01 OOTEF CMPL =~ FCODE1, #1 + 5996 
OB 12 001F3 BNEO $ F 
01 0c AE D1 001F5 CMPL = FCODE2, #1 : 5997 
13 o1F9 BEQL : 
11 A €9 001FB BLBC  ARR_FLAG, 25$ : 6000 
13 11 OO1FE BRB $ : 
01 04 AE 0100200 24%:  CMPL  FCODE1, #1 + 6003 
11 13 00204 BEQL ; 
01 0c AE D1 00206 CMPL FCODE2, #1 + 6004 
08 if 020A BNE ; 
04 5A E9 00206 BLBC = ARR_FLAG, 26$ + 6007 
50 59 DO 0020F 25$:  MOVL  R9,~RO : 
04 0 if RET ; 
50 57 DO 00213 268:  MOVL 7, RO F 
04 00 18 RET r 
50 01 CE 00217 27$:  MNEGL #1, RO : 6018 
04 0021A RET + 6020 


3; Routine Size: 539 bytes, Routine Base: DBGSCODE + 2608 
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ROUTINE EVAL_MAT_SPEC(MSPTR, VALPTR, VAL 


' FUNCTION 

. This routine evaluates a Materialization Spec. Materialization Specs 
are found inside certain kinds of Value Specs when more complex computa- 
tions are needed to produce a symbol's value. In particular, they are 
used when a call on a compiler-provided run-time routine or an invoca- 
tion of the DST stack machine is used to compute the value. 


INPUTS 
MSPTR = Pointer to the Materializatian Spec to be evaluated. 


VALPTR = The address of a three-longword vector to receive the value 
pointer and the corresponding stack frame pointer. 


VALKIND = The address of a longword location to receive the value kind. 


1 
i 
i 
i 
i 
i 
i 
' 
! 
i 
i 
' 
' OUTPUTS 

: VALPTR = A pointer to the desired value is returned to VALPTR. The 
! pyte address of the value is returned to VALPTRLU) and the 
! bit offset from that address is returned to VALPTR[1]. The 
! corcespeneta stack Frame Pointer is returned to VALPTR(2]. 
VALPTR 

} 

} 

} 

} 

} 

i 


VALKIND = The kind of the value pointed to by VALPTR is returned to 
VALKIND, These are the possible values: 


DBGSK_VAL_LITERAL = VALPTR points to a literal value. 

DBGS$K_VAL_ADDR - VALPTR contains an address. 

DBGSK_VAL_DESCR = VALPTR contains the address of a 
descriptor. 


J will contain zero if no frame pointer is applicable. 


No value is returned by EVAL_MAT_SPEC. 


BEGIN 


MAP 
MSPTR: REF DSTSMATER_SPEC, Pointer to the materialization spec 
VALPTR: REF VECTOR(33 ' Pointer to value pointer vector 
VALKIND: REF VECTOR(14; i Pointer to value kind Location 


LOCAL 
VALLOC: REF VECTORC,LONG), ' Pointer to value as computed by the 
} mechanism specified in the spec 
REGNUM; ! Register number 


! Determine what kind of materialization spec we have. Cumpute the value 
of each kind as appropriate. 


CASE -MSPTRCDSTSB_MS_MECH] FROM DSTSK_MS_MECH_MIN TO DSTSK_MS_MECH_MAX OF 


! Routine Call mechanism spec. Call a run-time routine crovided by the 
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: ts 6078 compiler in the user image to compute the desired value. 
; 85 6080 Costsx NS MECH RTNCALL]: 
: 59 60 VALPTRE2) = ,0BGSREG_VALUES(13); 
: 388 60 q VALLOC = DBGSGET TERPMERYED 
; 598 6084 VALSPEC ROUT CALC(.VALLOC -MSPTRCDSTSL_MS_MECH_RTNADDRI, 
; 5990 6085 -MSPTREOSTSV_MS_DUMARGJ, ~TRUES; 
; 5991 60 § END; 
399 $088 
; 5994 6089 ! Routine Call mechanism spec. Cail a run-time routine provided by the 
; 5995 6090 ! compiler in the user image to compute the desired value. This differs 
3; 5 6091 ' from the above RTNCALL case only in that the FP is not passed into 
; 599 609 ! the thunk. The Last parameter to VALSPEC_ROUT_CALL is a flag indicating 
Be eg 
; 6000 6095 tosTsx MS _MECH_RTN_NOFP3: 
; 600¢ 609 VALPTRE2] = .DBGSREG_VALUES(13); 
; 600 6098 VALLOC = DBGSGET_TEMPMEM(4); 
3 6004 6099 VALSPEC_ROUT_CALC(.VALLOC, .MSPTRCDSTSL_MS_MECH_RTNADDRI, 
3 6005 6100 -MSPT@COSTSV_MS_DUMARGJ, FALSE); 
: 6006 6101 END; 
Be BRS 
: 6009 af ' Stack machine mechanism spec. Use the DST ‘’stack machine’’ to compute 
3 opty oi8? § the desired value. 
; 6012 6107 {DSTSK_MS_MECH_STK): 
; 6013 6108 STACK~MACHINE (MSPTRIDSTSA_MS_MECH_SPECJ, VALLOC, VALPTRE2)); 
: 6015 6110 2 
$ Gos ott } Any other value is an error. 
> 6018 g113 COUTRANGE): 
3; 6019 6114 SIGNAL (DBG$_INVDSTREC); 
3; 6020 6115 
3; 6021 6116 TES; 
: $058 $118 
3 6024 6119 2 ' We have now computed the value. Return the value and the value kind to 
3 ett ots9 } the caller. 
; $059 6132 CASE .MSPTRCDSTSB_MS_KINDJ FROM DSTSK_MS_BYTADDR TO DSTSK_MS_DSC OF 
3; 60 61 SET 
: 8 6198 
: tt * $ We have a byte address. 
; rast 61 8 {DSTSK_MS_BYTADDR): 
; 60 61 GIN 
3; 6035 6130 VALPTR(O) = .VALLOC(O); 
3; 60 6131 VALPTR[1) = 0; 
3 603 61 j VALKINDCO} = OBGSK_VAL_ADOR; 
3; 6038 61 § END; 
3; 5039 61 


H 16 
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; 6040 6135 

5 g 1 2 § } We have a bit address, i.e. a byte address with a bit offset. 
; $508 61 § tostse ns _BITADDR): 

3; 6044 61 

; 6045 6140 ah be 0 ee rittieb 

5 oRe8 6141 VALPTR 12, ALL OC 

; 604 O16 VALKIND(QJ = DBGSK VAL ADDR; 

; 6048 614 END; 

3; 6049 6144 

; 6050 6145 

; 6051 O18 ' We have a bit offset. 

; 605 614 i 

; 605 6148 CosTsx tH _BITOFFSI: 

3 6054 6149 

3; 6055 6150 VALPTRCOR = eens ui 

3; 605 6151 VALPTRL1 ALLOCLO AND 7; 

; 605 0126 VALKINDCO) = DBGSK_VAL_ADDR; 

3; 6058 615 END; 

3; 6059 6154 

; 6060 6155 

3; 6061 6156 ! We have an "R-value", i.e a literal or constant value. 
3; 606 6157 ! 

; 606 6158 CDSTSK_MS_RVAL): 

3; 6064 6159 BEGIN™ 

; 6065 6160 VALPTRCOR = = PALLOCESI; 

; 6066 6161 VALPT 

: 6067 616¢ VALKINDCOJ = “bacsx _VAL_LITERAL; 

3; 6068 616 END; 

3 6069 6164 

; 6070 6165 oats : 
; 6071 6166 ! We have a register number. Convert it into a pointer into the regis- 
$ one 6167 ' ter value vector. 

3; 607 6168 i 

3; 6074 6169 CDSTSK_MS REG): 

3; 6075 6170 eeeln 

3; 6076 6171 = ,VALLOC(CO); 

3; 6077 oie rE (REGNUM LSS 0) - £ 7 NUM GTR 15) THEN SIGNAL (DBG$ me 
; 6078 617 IF .DB SREG_ VECTORC.REGNUM) EQL 0 THEN VALSPEC_SCOPE WERROR() 
3; 6079 6174 VALBTREO 2 = "DBGSREG_ VALUES -REGNUM); 

; 6080 6175 VALPTR 

; 6081 617% VALPTR = = bacsrec VALUES(13); 

; ones 617 asus ] = DBGSK_VAL_ADDR; 

5 ret t4 e178 

3; 60 617 

3; 6085 6180 

3 ones 6181 ! We have a descriptor address. 

; 608 Oise ‘ 

3; 6088 618 COSTSK sg: 

3; 6089 6184 

3; 6090 6185 VALPTRLO ALLOCCO); 

3; 6091 61 VALPT 

: 6098 61 VALKINDLO) = bBGSK _VAL_DESCR; 

3; 609 6188 END; 

+: st 

3; 6096 6191 ! Any other value is an error. 


seis 


; 7 619 
: 609 $138 
; 6 6194 
ee Be 
+ 
> 6104 $199 
Bg Be 
; S109 6 0¢ 
> 6108 620 
0 
0098 
7E 02 a2 
7E 
0041 00% 
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' 
CINRANGE, OUTRANGE): 
SIGNAL (DBG$_INVDSTREC); 
TES; 


ALL done--now return. 


RETURN; 
END; 
003C 00000 EVAL_MAT_SPEC: 
“WORD Save R2,R3,R4,R5 
55 000000006 00 9€ 00002 MOVAB DBGSGE° TEMPMEM, RS 
54 000000006 00 9€ 00009 MOVAB LIBSSIGAAL, R4 
53 000000006 00 i: 00010 MOV DBGSREG_VALUES+52, R3 
3E 04 C2 00017 SUBL2 #4, SP 
5 04 AC DO OOO1A MOVL MSPTR, R2 
01 01 Ad. &F 00015 CASEB 1(R2). #1, #2 
004A 0011 00023 1$ WORD $-i§ - 
-1$° 
0002832A 8F DD 00029 PUSHL #164650 
64 01 FB O002F CALLS #1, LIBSSIGNAL 
49 11 00032 BRB Ag 
50 08 aC DO 00034 2s: MOVL =~ VALPTR, RO 
08 Ad 63 00 00038 MOVL § DBGSREG_VALUES+52, 8(RO) 
04 Dd 0003c PUSHL @# 
65 01 FB 0003E CALLS #1, DBGSGET_TEMPMEM 
6E 50 00 00041 MOVL ; VALLOC 
01 DD 00044 PUSHL 
12 11 90046 RB 
50 08 aC DO 00048 3$: MOVL §- WALPTR, RO 
08 Ad DO 0004¢ MOVL  § DBGSREG_VALUES+52, 8(RO) 
4 DD 0005 PUSHL # 
65 1 FB 005 CALLS #1, DBGSGET_TEMPMEM 
6E 0 pO 0005 MOVL RO, VALLOC 
7E D4 0 38 cLRL P) 
01 01 EF A 4$ EXTZV #1, #1, 2(R2), -(SP) 
03 A2 DD 9069 PUSHL  3(R2) 
0C AE DD 0006 PUSHL VALLOC 
0000v CF 04 Fe 066 CALLS #4, VALSPEC_ROUT_CALL 
10 11 00068 BRB 
08 Ac 08 ¢ 06 5$ ADDL3 #8, VALPTR, -(SP) 
04 AE OF PUSHAB VALLOC 
3 Ad 9F 0007 PUSHAB 3(R2) 
0000v CF 03 FB 0007 CALLS #3, STACK_MACHINE 
0093 of OF Sonme gg: — CASER ARC), ale 
0087 itt 0 89 Sf 


103-98, - 


Page 
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; 6021 


6073 


sls 


60 
06 AOd 00 «BE 


; Routine Size: 279 bytes, 


1 
1 


0002832A F DD ooee 
64 1 be 00 
50 8 AC oe 039 
60 0 BE D rs 4 
06 =A os 09; 
SF 11 QOOA2 
51 08 AC 4 OA4 
50 6 B fe 
61 g Dd AB 
11 QOOA 
50 08 A 09 08 
00 BF 08 ¢ 084 
0 00 Ff 0089 
41 11 000C 
50 08 AC 00 000C 
60 6E DO 000C6 
046 AQ D4 000C9 
oc =«=BC 01 DO O00CC 
aoa HD 
o§ 19 00005 
OF § D1 44 
09 15 QOODA 
0002832A 8F dD 000DC 
64 01 4 BOOes 
seeseeensen.s DS OOOE 
05 12 QOOEC 
0000v CF 00 FB OOOE 
50 08 AC 00 000F 
60 CC A342 «+E Boor 
04 AO D4 OQOOFC 
08 A0 63 DO OOOFF 
oc BC 02 00 00103 
04 4p TA 
50 08 aC 00 00108 
60 6— 60 0010C 
04 rH D4 Botts 
oc ac 03 00 00112 
04 00116 
Routine Base: DBGSCODE + 28F3 


J1 
6-Se 
4-Se 


11$: 


12$: 


13$: 


148: 


15$: 


16$: 
17$: 


e098 09:48: 7 


PUSHL 
cms 


11$-7$,- 
16g- 086° 

17$ 

#164650 

#1, LIBSSIGNAL 
VALPTR, RO 
avattot, (RO) 
4 (RO) 


16$ 

VALPTR, R1 

VaR OC RO 
(R1) 


TR, 20 
#8, @vALLOC, (RO 


(RO) 
#0. #3. @VALLOC, 4(RO) 
16$ 


VALPTR, RO 
aL « (RO) 


#1, @VALKIND 
@VALLOC, REGNUM 
REGNUM, #15 

14$ 


4650 
"| L1BSS1GNAL 
DBGSREG_VECTORCREGNUM) 
40. VALSPEC_SCOPE_ERROR 
DBGSREG_VALUESCREGNUM], (RO) 
4(RO) 


DBGSREG_VALUES+52, 8(RO) 
#2, aVACKIND 


VALPTR, RO 
VALLOC, (RO) 


( 
#3, @VALKIND 
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ROUTINE FOLLOW_STATIC_LINK(RSTPTR, SCOPE_RSTPTR) = 


FUNCTION 
This routine determines the proper invocation number for a data item 
which has been looked up in a specific Scope. This is accomplished by 
starting with the gets frame of the routine defining the scope and then 
following the Static Links (in the call stack) until we get to a frame 
for the routine in which the data item is declared. The invocation 


= 


number of that routine is computed along the way, and is returned as the 
invocation number of the data item. 


i 

i 

i 

i 

i 

i 

i 

i 

i 

: The Static Links take us from call frame to call frame as we go up-scope 
' from the scope routine to the declaring routine. Static links are spec- 
! ified by Value Specs in Static L nk DST records. There can be one such 
' record per routine. However, if no such record is specified (BLISS, for 
: example, does not use them), we take the first invocation we find in the 
: call stack (after the current call frame) for the up-scope routine. The 
: Static Link DST record always gives the right final invocation number, 
; but the first-invocation-we-find method works equally well in all but a 
: few anomalous cases. 

! INPUTS 

‘ RSTPTR = Pointer to the RST entry of the object (normally a data item) 
whose invocation number is to be determined. 

' 

' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


SCOPE_RSTPTR = Pointer to the RST entry which defines the scope in which 
the RSTPTR item is to be found. This scope defines the invoc- 
ation of RSTPTR we want. This routine assumes that the RSTPTR 
item is known to be in the scope defined by SCOPE_RSTPTR. 


WN 9 OONAUNE WN OOOVNOUE WN 9 


WAI. orononononofunund 2] 3 es 


ve 


OUTPUTS 
A pointer to an RST entry for the RSTPTR object is returned as the 
routine value. This RST entry will have the proper invocation 
number for the object. The returned pointer is identical to 
RSTPTR if the invocation number is zero. RSTPTR is also re- 
turned unchanged if it does not point to a data object. 


BEGIN 


SOBNOAP WN OD aE 


PIPPIN AIPYPIPYNIPPIPPPYPIPYPIPYPIPINPIDPIPPIPIPUNPNIPYINIPYNINY 


MAP 
RSTPTR: REF RSTSENTRY, Pointer to RST entry for data object 
whose invocation number is to be 
determined 
Pointer to the RST onary which 
defines the scope in which 
the object is to be found 


SCOPE_RSTPTR: REF RSTSENTRY; 


PAPAIN BB BEBE EE PW 


OOnOulwn— 


SPVALUE: REF VECTORC.LONG); ' Current call frame's SP value 


LOCAL 
CURRENT_REG: REF VECTORC,LONG), 


DSTPTR: REF DSTSRECORD, 
FRAME_FOUND_FLAG, 


Pointer to vector of current register 
values (at top of stack) 

Pointer to Static Link DST record 

Set to TRUE when a call frame for a 
desired routine has been found 


UPVC IN BB BS BS BB EEE EMI NIN NAAN NPININPININIDY 2 2 OO OS SS" OOOO 
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Pointer to current VAX call frame 

Pointer to Invocation Number RST Entry 

Call frame register-vector index 

Pointer to data item Pathname Descr. 

Pointer to poqnneng counted ASCII 

Current call frame's PC value 

Pointer to a register’s save location 

Pointer to call frame Fog iseee save 
area for registers RO = R11 

Vector of pointers to save areas for 
the current frame's registers 

Pointer to RST entry for routine which 
declares the RSTPTR data item 

Invocation count of ROUTPTR routine 

Pointer to RST entry for possible 
nested routine 

Pointer to current — in CALL com- 
mand runframe stack (needed by 
the GET_REGISTER_VALUES routine) 

Pointer to Static Address Table entry 

Save area for DBGSREG_SYMID 

Save area for DBGSREG_VALUES 

Save area for DBGSREG_VECTOR 

Pointer to scope RST entry 


FRAMEPTR: REF BLOCKE BYTE], 
INVPTR: REF RSTSENTRY, 
PATHNAME, 

PATHSTRING, 

PCVAL 

REGPTR: REF VECTORC,LONG) 
REGSAVELOC: REF VECTORL,LONG), 
REGVEC: VECTORC17.LONG), 
ROUTPTR: REF RSTSENTRY, 


ROUT_INVOC_COUNT 
RPTR: REF RSTSENTRY, 


RUNF RAME PTR, 


SATPTR: REF SATSENTRY, 
SAVEREGSYMID, 

SAVEREGVAL: VECTOR(C17,LONG], 
SAVEREGVEC: VECTORL17,LONGJ, 
SCOPE: REF RSTSENTRY, 


SCOPE_INVOC_COUNT, Invocation count of SCOPE routine 

SCOPE_INVOC_NUM, Invocation number we are looking for 
of routine — to by SCOPE 

STATIC _LINK_FP, Frame Pointer value from Static Link 


T record 
Value kind returned by DBGSSTA_VALSPEC 
Value vector returned by VALSPEC rout- 
ine: byte address, bit offset, 
and frame pointer value. 


VALKIND 
VALVECTOR: VECTORC3,LONG); 


If RSTPTR does not point to a Data Item RST Entry, we return it unchanged 
since invocation numbers are only meaningful for data objects. 


' 
i 
' 
iF .RSTPTRCRST$B_KIND] NEQ RSTSK_DATA THEN RETURN .RSTPTR; 


' If the scope is anything other than a routine or a block in a routine, 

! it cannot have an associated invocation number. We thus return the input 

! RST pointer without change. 

F .SCOPE_RSTPTR EQL 0 THEN RETURN .RSTPTR; 

F (.SCOPE_RSTPTREIRST$B8_KIND] NEQ RSTSK_ROUTINE) AND 
(.SCOPE_RSTPTRLRSTSB_KIND] NEQ RSTSK_BLOCK) 


RETURN .RSTPTR; 


: Get the invocation number associated with the scope RST entry. 


SCOPE = .SCOPE_RSTPTR; 
SCOPE_INVOC_NUM = 0; 


; 
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IF .SCOPECRST$V_INVOCNUM] 

THEN 


BEGIN 
INVPTR = .SCOPECRSTSL Shay bach be 
SCOPE_INVOC_NUM = -{NOPTR RSTSL }yvocnun]; 
SCOPE = .INVPTRCRSTSL_UPSCOPEPTRI; 


! If SCOPE points to a lexical block, find the nearest up-scope routine. 
This is the routine to which the scope’s invocation number applies. 


WHILE .SCOPECRSTSB_KIND] NEQ RSTSK_ROUTINE DO 


IF .SCOPECRSTSB_KIND] EQL RSTSK_MODULE THEN RETURN .RSTPTR; 
SCOPE = .SCOPECRSTSL_UPSCOPEPTRI; 


! Get a pointer to the RST entr 
! the data object RST entry. T 
: the desired data object. 


ROUTPTR = .RSTPTR; 
WHILE .ROUTPTRCRSTSB_KIND] NEQ RSTSK_ROUTINE DO 


BEGIN 
IF .ROUTPTRCRSTSB_KIND] EQL RSTSK_MODULE THEN RETURN .RSTPTR; 
a bedi = .ROUTPTRIRSTSL_UPSCOPEPTRI; 


for the innermost routine up-scope from 
is #s the routine which immediately contains 


' If that innermost routine is the desired scope, we build a new RST entry 
} for the data item with the scope's invocation number and return that. 


if .ROUTPTR EQL .SCOPE 
THEN 


EGIN 
IF .SCOPE_INVOC_NUM EQL 0 THEN RETURN .RSTPTR; 
ge DBGSBUILB_INVOC_RST(.RSTPTR, .SCOPE_INVOC_NUM); 


The innermost routine and the desired scope are different. We must thus 
90 through the VAX call stack to find the proper ROUTPTR frame to go with 
he SCOPE we are starting with. This requires us to follow static Links 

where present to do the up-level addressing correctly. 


We start by initializing the current stack frame's Program Counter (PC), 
Frame Pointer (FP), and other register values. We also initialize the 
pointer into the CALL co-mend runframe-stack. 


PCVAL = .DBGSRUNFRAME(DBC yseR PC): 
FRAMEPTR = - DBGSRUNF RARE bes i_uSER FP): 
CURRENT REG = DBGSR ARE DGEL USER RE 


Node 6S); 
RUNFRAME PTR = 5086 UNF RAME POGEL Ment LINK] 
INCR | FROM 0 TO 16 DO REGVECC.1) = CURRENT _REGC.1); 


‘ 
. 
' 
. 
' 
. 
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. 
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. 
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. 
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. 
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RSTACCESS 1b-se =1984 7:48:17 AxX-11 Bliss-32 V4.0-74 Page 200 1 
yO4-000 1a-sep-19 4 eet fey Oru. nC SASTACCESS oaos1 . (40) & 
628) 6375 3 
6 § 6 1g ! Search through the VAX call stack looking for the SCOPE routine's call ; ¢ 
6 637 ! frame and then the ROUTPTR call frame up-scope from it. Pick up all : ¢ 
! register save area addresses in the stack along the way. : 
6 : 6 , : regi dd in the stack along th : ‘ 
6 Bg 6 $4 ROUT_INVOC_COUNT = 0; 3 4 
628 6381 SCOPE_INVOC_COUNT = 0; 3 6 
6288 6 Hf STATIC_LINK-FP = 0; a ¢ 
6289 6 WHILE TRUE BO : ¢ 
6290 6384 BEGIN : 6 
a! : 
6 38 6 Ha ! If we got to the bottom of the stack without finding the desired : ¢ 
6 ¥ 6 38 : invocation of the ROUTPTR routine, report an error. : , 
6 38 6390 4 IF (.PCVAL EQL 0) OR (.FRAMEPTRCSFSA_HANDLER] EQL DBGS$F INAL_HANDL) 3 4 
629 6391 3 THEN 3 ¢ 
6298 6 35 4 BEGIN 3 
6299 639 4 DBGSSTA_SYMPATHNAME(.RSTPTR, PATHNAME); 3 ¢ 
6300 6394 4 DBGSNPATHDESC_TO_CS(.PATHNAME, PATHSTRING); 3 ¢ 
6301 6395 4 SIGNAL (DBGS_PROFRANOT, 1, .PATHSTRING); 3 ¢ 
: 6 4 6396 END; 3 6 
: B30e $398 ? 
; 6305 6399 ! Check to see if the current call frame is a frame for the routine : ¢ 
; 6306 6400 ' currently peteves to by SCOPE. If so, find the static Link (if any) ; 6 
; 6307 6401 ! and make SCOPE point to the RST entry of the routine immediately 3 6 
; oe $69 : up=scope from the routine currently pointed to by SCOPE. : , 
; $319 6404 j IF (.PCVAL GEQU .SCOPECRSTSL_STARTADDRJ) AND 3; 6 
; 6511 6405 4 (.PCVAL LEQU .SCOPELRSTS$L_ENDADDR)) 3 ¢ 
; oelg 6406 3 EN o 3 6 
3; 631 6407 4 BEGIN 3; 6 
ae 8 : 
3; 6316 6410 4 ! The current PC value is in the range of the SCOPE routine, so we g ¢ 
3; 6317 6411 4 ! set FRAME_FOUND_FLAG. However, this frame could actually be for 3 6 
; 6318 ie 4 i a nested routine within the SCOPE routine. We check for that and 3 6 
; ath att ? : Clear FRAME_FOUND_FLAG if that turns out to be the case. : , 
: ozs) 6415 4 FRAME FOUND A = TRUE; $ 4 
: 6328 S616 6 SATPTR = .SCOPECRSTSL_RINSATPTRI; : ¢ 
3 6334 0618 4 ! WARNING == We can get into trouble here. Previously, we have $ ¢ 
3; 6325 6419 & ' assumed that the SAT is always around. This may not be the 3 ¢ 
; 6 $$ e680 4 ' case if this module has been canceled. There are times when 3 ¢ 
6 6421 4 ! the module could be canceled and then set ogeia to make us s ¢ 
; 6328 obs¢ 4 ' believe the the SAT is valid for this RST, but it is not! To 3 ¢ 
3; 6329 64 4 ' correct the probien. when a module is canceled the field s ¢ 
; 6 6424 4 , tp ge TR is set to ZERO for each routine. 3 § 
; 6531 6425 4 ! So if the module for this RST has been congoled. SATPTR will 3 ¢ 
: 6 § 64 § 4 ' be zero from the above statement, The problem is that this 3 ¢ 
: © 64 4 i assumes there are no nested routines that truly require the a | 
; 6 64 3 4 ' correct context information. This is, of course, WRONG. A 3 ¢ 
; 63 5 64 4 ! way of saving and getting to the SAT information must be a 4 
3 O38 o 9 : : found in the future. 68.A. Becker MAY-1984 : 


1 
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6 3 64 § 4 IF .SATPTR NEQ 0 

6 64 4 TH 

6340 64354 & SATPTR = » SATPTRCSATSL_FLINK]; 

6341 6435 4 

6 tg 64 § 4 WHILE TRUE DO 

6 64 BEGIN 

6344 6438 IF ,SATPTR EQL 0 THEN EXITLOOP; 

6345 6439 IF_(.PCVAL Lssy ~SATPTRCSATSL_STARTJ) THEN EXITLOOP; 

6346 6440 é RPTR = ,SATPTRLSATS$L rere leds 

6347 6441 IF ett, LEQU .SATPTRCSATS$L_ENDJ) AND 

6548 644 g (.RPTRLRSTSB_KINDJ EQL RSTSK_ROUTINE) 

6349 644 THEN 

6350 6444 6 BEGIN 

6351 6445 6 FRAME FOUND_FLAG = FALSE; 

6 2 6446 6 EXITLOOP; 

635 644 5 END; 

6354 6448 5 

6355 6449 5 SATPTR = .SATPTRCSATSL_FLINK); 

6356 6450 4 : 

oee? 6451 4 

6358 6452 4 

6359 6455 4 : If this call frame really is for the SCOPE routine, we see if it 
6300 pate: ? is the invocation we are looking for. 

6362 6456 4 IF .FRAME_FOUND_FLAG 

636 6457 4 THEN 

6364 6458 5 BEGIN 

6365 6459 5§ 

6366 6460 5 

6367 6461 5 : If this is the invocation we are looking for, determine which 
6368 6462 5 ! invocation of the next routine up=-scope from SCOPE to look 
6368 64635 5 ' for next. 

6370 6464 5 4 

6371 6465 5§ IF (.STATIC_LINK_FP EQL .FRAMEPTR) OR 

ose 6466 6 (. SCOPE_INVOC" COUNT EQL .SCOPE_INVOC_NUM) 

637 646 5 THEN 

6374 6468 6 BEGIN 

6375 6469 6 

6376 6470 6 

yt te 6471 6 ! This is the invocation of the SCOPE routine we want. If 
6378 6472 6 ! this frame is also a frame for the ROUTPTR routine, we 
6379 64735 6 ! have found the call frame we want for the data item. We 
O80 ere ? } thus exit the loop searching through the call stack. 

6 4 6476 6 IF .SCOPE EQL .ROUTPTR THEN EXITLOOP; 

6 6477 6 

6 6478 6 

6385 6479 6 ! If no Static Link DST record was specified, we want to 
6336 6480 6 ! look for the first invocation in the stack of the routine 
638 6481 6 : ups scope from the SCOPE routine. We set SCOPE_INVOC_NUM 
ogee o ; ? ; and SCOPE_INVOC_COUNT to make this happen, 

6390 64 6 IF .SCOPECRSTSL_STATIC_LINK) EQt 0 

6391 6485 § THEN 

6 3 64 BEGIN 

639 64 7? SCOPE_INVOC_NUM = 1; 

6394 6488 7 SCOPE _INVOC_COUNT = 0; 
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STATIC_LINK_FP = 0; 
END 


! But if a Static Link DST record was specified for this 

' routine, we use the Value Spec in that DST record to pick 
' up the Static Link (in the form of a Frame Pointer). We 
disable looking for the first up-scope invocation. 


ELSE 


' Save the current register values and pointers set up 
! by DBGSSTA_SETCONTEXT. Then substitute our own regis- 
ter set in the arrays used in Value Spec evaluation. 


SAVEREGSYMID = .DBGSREG_SYMID; 
DBG$REG_SYMID = .RSTPTR: 
INCR 1 FROM 0 TO 16 DO 


N 
SAVEREGVECE.1) = -DBGSREG_VECTORC. 1]; 
SAVEREGVALL.1] = .DBG$REG VALUESL.1): 
DBGSREG_VECTORC.1) = .REGVECL.1J; 

REGPTR = .REGVECL«1); 

IF .REGPTR NEQ 0 THEN DBGSREG_VALUESC.1] = .REGPTRCO]; 


' Evaluate the Static Link Value Spec. This produces a 
pointer to the desired up-scope call frame. 


DSTPTR = .SCOPECRSTSL_STATIC_LINK); 
DBGSSTA_VALSPEC (DSTPTRLDSTSA-SL_VALSPEC), 


VALVECTOR, VALKIND); 
STATIC_LINK_FP = .VALVECTOR(O); 


Restore the saved register values and pointers. 
DBGSREG SYMID = .SAVEREGSYMID; 
NC 16 DO 


INCR I FROR 0 TO 
DBGSREG_VECTOR ‘H] = .SAVEREGVEC 1} 
+ ramet paseo -lJ = .SAVEREGVALC.1); 
END; ! tnd of Static Link evaluation 


! Follow the up-scope pointer from the SCOPE routine’s RST 
: entry to the next routine uprseope. Set SCOPE to point 
to that routine's Routine RST Entry. 


SCOPE = .SCOPECRSTSL_UPSCOPEPTR); 
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ond} 6 ry § WHILE .SCOPECRSTSB_KIND] NEQ RSTSK_ROUTINE DO 

64 654 BEGIN 

6454 6 ‘3 7 IF .SCOPECRSTSB_KIND] EQL RSTSK_MODULE 

6455 $2¢ 7 THEN 

ores ° 3} 4 SDBG_ERROR('RSTACCESS\FOLLOW_STATIC_LINK"); 

ree g ¢ 7 SCOPE = .SCOPECRSTSL_UPSCOPEPTRI; 

seg BaRE a 

6461 6555 8 END; ! End of STATIC_LINK_FP IF-statement 
an 

6464 geet ! We now know what routine and frame to look for next. Incre- 
or te 2222 2 } ment the invocation count for the current SCOPE routine. 
ec? $29) 2 SCOPE_INVOC_COUNT = .SCOPE_INVOC_COUNT + 1; 

o*9) e368 2 END; ! End of FRAME_FOUND_FLAG IF-statement 
6471 6565 END; ! End of PCVAL in SCOPE IF-statement 
nr 

6474 6568 ' Check to see if the current call frame is a frame for the ROUTPTR 
6475 6569 ' routine (but not for a nested routine within the ROUTPTR routine). 
6476 6570 ' If so, increment the ROUTPTR routine's invocation count. This code 
eee $37) } thus computes the data item's final invocation count. 

6479 $278 if (.PCVAL GEQU .ROUTPTRERSTSL_STARTADDRJ) AND 

6480 6574 4 (.PCVAL LEQU .ROUTPTRCRSTSL_ENDADDR)) 

6481 6575 3 HEN 

ot) 6576 4 BEGIN 

648 6577 4&4 FRAME _FOUND_FLAG = TRUE; 

rt $278 : SATPTR = .ROUTPTRCRSTSL_RTNSATPTRI; 

6486 6580 4 ! WARNING -- We can get into trouble here. Previously, we have 
6487 6581 4 ' assumed that the SAT is always around. This may not be the 
6488 6286 4 ' case if this module has been canceled. There are times when 
6489 6585 4 !' the module could be canceled and then set — to make us 
6490 $286 4 ' believe the the SAT is valid for this RST, but it is not! To 
6491 6585 4 ' correct the probien. when a module is canceled the field 

ote 6336 4 ! RSTSL_RTNSATPTR is set to ZERO for each routine. 

649 $28 4 ! So if the module for this RST has been canceled, SATPTR will 
6494 6588 4 ' be zero from the above statement. The problem is that this 
6495 638° 4 ' assumes there are no nested routines that truly require the 
6496 6 4 ' correct context information. This is, of course, WRONG. 

6497 6591 4 i way of saving and getting to the SAT information must be 

oS $295 : found in the future. 8.A. Becker MAY-1984 

$801 $358 FP gd 

60 6996 4 : SATPTR = .SATPTRISATSL_FLINK); 

se S wilh IE 00 

65 66 IF .SATPTR EQL O THEN EXITLOOP; 

650 6601 IF (.PCVAL bSey . SATPTRCSATS$ _§tarT)) THEN EXITLOOP; 

6508 6602 RPTR = .SATPTR SATSL_RSTPTR); 
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26 DEBUG.S Sastactese.a$5-1 | . (40) 
IF toy LEQU .SATPTRE 
. gates RSTS$B_KIND] EQ 


On 
IND ed ed ed ed ed 
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BEGIN 
FRAME 
XITL 


FOUND_FLAG = FALSE; 
EXITLOOP; 


60 


SATPTR = .SATPTRESATSL.FLINK]; o 


IF FRAME FOUND FLAG 
ROUT_INVOC_COUNT = .ROUT_INVOC_COUNT + 1; 


6 
| 
4 
4 
4 
4 
4 
4 
END; 
=) 
Pick up the addresses of the register save areas in this call frame. 
ts) 
G 


MRN — QOOOO 


VE AN $9 OONOAVES WN ZOD NOYL EW OOOO 


! Save those addresses in REGVEC. This allows us to keep track of the 
! current register values as we go on to the next frame in the stack. 


ET_REGISTER_VALUES(.FRAMEPTR, RUNFRAME_PTR, REGVEC); 


~ 
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66 
66 ' Determine what the value of SP (the Stack Pointer) is for the current 
5 66 ' CALL frame and save that in the OWN variable SPVALUE. Then make the 
66 ! save-looation pointer in REGVEC potns to SPVALUE. (Since SP does not 
M oFe have ~ true save-location, the OWN variable fakes one.) 
9 663 REGPTR = .REGVEC(14);: . 
540 3 ; SPvALUE = ,REGPTR(O); . 
541 6 © REGVECL14) = SPVALUE; 
26g 6636 
54 6637 
544 6638 ! Dig out the values of PC and FP for the current CALL frame. Then 
545 6639 ' Loop for the next stack frame. 
546 6640 ‘ 
547 6641 REGPTR = spesvet 15); 
548 O64 PCVAL = .REGPTR(O); 
549 664 ° REGPTR = .REGVECL13): 
550 6644 FRAMEPTR = .REGPTRLO); 
32) perk END ! End of Ll th h th Ll stack 
3 ! End of loop throug e cabl stac 
o326 bec? 
6554 oo68 
6555 664 : We have now found the proper invocation number for the ROUTPTR routine. 
6556 6650 !' We thus build an RST entry for the data item with that invocation number 
$237 $83! (if necessary) and return a pointer to that RST entry. 
$238 ree IF .ROUT_INVOC_COUNT EQL 0 THEN RETURN .RSTPTR; 
6360 663% RETURN DBG$BUICD_INVOC_RST(.RSTPTR, .ROUT_INVOC_COUNT); 
6562 6656 END; 
Go 
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18. $ep-1984 02:48:17 AX-11 Oi ig s-32 v4.0 
14- Ht eet Bee DEBUG. SRC Sastactess.099; 1 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
00494 P.AED: ASCII <28>\RSTACCESS\<92>\FOLLOW_STATIC_LINK\ 
-PSECT DBGSOWN,NOEXE, PIC,2 


00054 SPVALUE:.BLKB 4 


-PSECT DBGSCODE.NOWRT, 


OFFC 00000 FOLLOW.STATIC LINK: 
Sa e Re R3,R4,R5,R6,R7,R8,RI,RIO,R11 
9€ 0000 HOVAR | =o8e(SbS. SP 


SHR, PIC,0 


p 000 MOVL age Pin. ‘he 
1 00008 CHPB 20(R 8), #6 
12 OO00F BNEQ a 
DO 00011 MOVL § SCOPE_RSTPTR, RO 
13 00015 BEQL ©=«-BS 
91 00017 CMPB O(RO), #2 
13 00018 BEQL i 
91 00010 CMPB OCRO), #3 
13 00021 1$: BEQL $ 
31 00023 3: BRW 1$ 
DO 00026 3$: MOVL RO, SCOP 
D4 00029 CLRL  SCOPE_INVOC_NUM 
E1 0002C BBC #2 5Tise ORE) 743 
DO 00031 MOVL 8(SCOPE) 
DO 00035 MOVL eeCINveray "Score _INVOC_NUM 
b0 003A MOVL eal 
1 0055 4$: CMPB : (SCOPE), 
13 9004 BEQL $ 
91 00044 C g0(SCOPE), 
13 00048 BEQL $ 
DO 0004A MOVL  16(SCOPE), SCOPE 
11 0004 BRB 4s 
b0 0050 5$: MOVL RB, ROUTPTR 
1 00053 6$: C Z0tROUTPTR) #2 
13 0005 BEQL 
9 0099 CMPB O(ROUTPTR), #1 
13 00 30 BEQL 
p O05 HOVL (ROUTPTR), ROUTPTR 
D1 O08 7$: CMPL § ROUTPTR, SCOPE 
1 68 BNEG 
D 6A TSTL COPE_INVOC_NUM 
1 6D 8$: BEQL $ 
pp of PUSHL SipPe- INVOC_NUM 
1 é BRW 4 
06 75 9 MOVL SRUNFRAME +64, F PCVA 
p 7C MOVL PB CSRUNE RARE ® 6; 
3 MOVAB DBGSRUNFRAME+4 CURRENT TAEG 
pp mOVL DBGSRUNFRAME, RUNFRAME_PTR 
DE 00095 10$:  MOVAL named aia: REGVECLI) 


3 


H 1 
erSep-t9be 15:18:06 — EdeBuG.SRCSAST 


Pr 


F6 50 10 £3 00098 AOBLEQ 10$ 
16 AE pb oF CLRL Rout liwoc COUNT 
E A2 CLRO pierre. INR_F 
AD A4 11%: = ‘TSTL sty 
D j Ag BEQL 6s 1 
50 000000006 0 i MOVAB DBGSFINAL_HANDL, RO 
C 3 p AF CMPL @FRAMEPTR> RO 
2 0008 BNEQ 13 
18 AE 9F 00085 12$:  PUSHAB PATHNAME 
58 DD 00088 PUSHL R 
FIC6 CF a 02 FB OBA CALLS FA hing DBGSSTA_ SYMPATHNAME 
1€ AE OD a9ee PUSHL ne 
000000006 00 02 FB 000C CALLS ry "DBG NPATHDESC_TO_CS 
1¢ AE dD 000CC PUSHL PATHSTRING 
1 0D OOOCF PUSHL #1 
00028cB0 8F DD 001 PUSHL #16 
000000006 09 3 FB 007 CALLS #3, LIBSSIGNAL 
18 «OA A 01 00 DE 13$: CMPL PCVAL, 24 (SCOPE) 
03 1€ 000E BGEGU 15$ 
OOFA 31 bO0E4 146$:  BRW 26$ 
1c AB SA 1 00 £7 15$:  CMPL _—s PCVAL, 28(SCOPE) 
F7 1A OOO0EB BGTRU 14$ 
59 01 00 OOOED MOVL #1, FRAME_FOUND_FLAG 
52 20 Ad 00 OOF MOVL $2{SCOPE); SATPTR 
1D 1 0 OF4 BEQL 178 
52 $¢ 06 OOF 16$:  MOVL (SATPTR), SATPTR 
18 13 O00F BEQL 178 
04 A2 SA D1 OOF CMPL PCy AL, 4(SATPTR) 
if 1F OOOFF BLSSU-'17$ 
55 9C A2 D0 00101 OVL 12(SATPTR), RPTR 
08 A2 SA D1 00105 CMPL —s PCVAL, 8(SATPTR) 
EB 1A 00109 BGTRU 16$ 
02 146 AS 91 00108 CMPB  =- 20(RPTR), #2 
E3 12 0010F BNEQ 16$ 
9 04 00111 CLRL  FRAME_FOUND_FLAG 
CE 59 E9 g113 17$:  BLBC  FRAME~FOUND “FLAG 14$ 
Oc AE 6E Di 00116 CMPL § STATIC_LINK“FP, FRAMEPTR 
OA 13 QO11A BEQL 18$ 
08 AE 04 AE D1 Oii¢ CMPL § SCOPE_INVOC_COUNT, SCOPE_INVOC_NUM 
03 13 00121 BEQL —«d18$ 
008 31 00123 BRW 25$ 
54 D1 00106 18%: CMPL COPE. ROUTPTR 
1 129 BNEG $ 
O11E 108 BRW 0$ 
04 AE 04 001 F 19$:  CLRL COPE_INVOC_COUNT 
24 AS D ot TSTL 6(SCOPE) 
0 12 001 BNEQ os 
08 AE 1 p00 001 MOVL #1, SCOPE_INVOC_NUM 
3 D4 0013A CLRL STATIC_LIAK FP 
11 0013¢ BRB 4$ 
08 AE 04 001 i 20$:  CLRL SCOPE_INVOC_NUM 
10 AE 00000000° EF 06 14 MOVL DBGSREG SYMID, SAVEREGSYMID 
00000000" EF v0 13 ROVL R , DBGSREG_SYMID 
0000000060040 ob 13 21$:  MOVAL DBGSREG_VECTORCI), R6 
34 seed 66 i 15A MOVL  (R6), Mitatsdeb 
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71986 13:18:26 EDeeuG.ScSastaccess.050;1 


DBGSREG VALUES CI] R1 
(R1), SAVEREGVALLIJ 

reGvECTII, 
REGVECLIJ, REGPTR 


CREGPTR) (R1) 
#6, 1, 21 
36(S§COPE), DSTPTR 
VALKIND 


TR) 
#3, DBGSSTA_VALSPEC 
VALVECTOR, STATIC _LINK_FP 
SAVEREGSYMID, DBGSREG_SYMID 


SAVEREGVEC 1. DBGSREG_VECTOREI] 
SAVEREGVALCIJ, DBGSREG_VALUESLI 
#16, I, 2 

16(§COPE), SCOPE 

Q<SCOPE), #2 


O(SCOPE), #1 
4$ 
P.AED 


= VIKoToNT 
_ 


#164706 

org LIBSSIGNAL 
SCOPE _INVOC_COUNT 
PCVAL; 24(ROUTPTR) 
PCVAL, 28(ROUTPTR) 
9$ 


#1, FRAME_FOUND_FLAG 
g{ROUTPTR) SATPTR 


(SATPTR), SATPTR 
28$ 
as 4(SATPTR) 


Pp 
2 

12(SATPTR), RPTR 
Stan 8(SATPTR) 


Talia #2 
$ 


FRAME_FOUND_FLAG 
FRAME-FOUND-FLAG, 298 
ROUT_TNVOC_COUNT 


RE P 
(REGPTR), ley 
+36 
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57 FO AD OD 4 MOVL  REGVEC+52, REGPTR 3 6643, 
oc AE 67 8 4 MOVL § (REGPTR), FRAMEPTR i 9644 
FE58 4 BRwW : 6 3 
4 AE 0 4C 308: STL R YT_INVOC. COUNT : 6653. 
ri 4 BNEO = 3 ; 
50 g p } 318 MOvL — RB, RO ; 
16 AE DD 3 338: PUSHL  ROUT_INVOC_COUNT : 6654 
38 pp $: PUSHL R ; | 
D470 CF FB A CALLS #2, DBGSBUILD_INVOC_RST ; | 
04 F RET : 6656. 


-; Routine Size: 606 bytes, | Routine Base: DBGSCODE + 2A0A 
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13 ° $ 6658 ! ROUTINE GET_REGISTER_SYMID(PATHDESCR, SCOPEPTR, REG_LINE_LEX_PTR) = : 
\3 6 08 66 § 1 ! FUNCTION : 
|; 656 6660 1! This routine determines whether a given input symbol {s_a register H 
; 6568 6661 1! name or not, and if so returns that register’s SYMID. The input : 
3 0289 6662 1! symbol is identified by a Pathname Descriptor from which the symbol $ 
; 6570 6665 1! name is extracted. If the symbol name is a register name (RO = R11, : 
; 6571 6664 1! AP »_ SP, PC, or PSL) with or without a leading percent-sign, a 3 
; o27¢ 6665 1! a bata RST yt | and a DST record are created for the register. The F 
; 657 1! data type is set to longword integer (DSCSK_DTYPE_L) in the DST record $ 
; 6574 6667 1! and the name is set to the register name with a léading percent-sign 3 
3 $273 9658 : C"ZR5"* or ‘SSP’, for example). ; 
3 gare 6670 1! The RST entry's up-scope pointer is set as follows. If the reg tster is $ 
: 6578 6671 1! located in a normal named scope (MOD\ROUT\ZR5, for example), the regis- : 
3; 6579 oore 1! ter RST entry's upascene pointer is set to point to the RST entry for 3 
; 6580 6675 1! that scope. If the scope is a numeric scope (such as O\ZR5) which can : 
; 6581 6674 1! be converted to a named scope, the same thing is done. However, if the : 
; ote 6675 1! numeric scope cannot be converted to a named scope, meaning that no SET 3 
; 658 2678 1! module contains that scope, a dummy ‘‘numeric scope’’ Module RST al is : 
; 6584 6677 1! built to represent that scope. This RST entry has the RSTSV_MODNUMSCP : 
; 6585 6678 1! bit set which is later recognized by DBGSSTA_SETCONTEXT as representing : 
3; 6586 6679 1! an unnamed numeric scope. The name of this "module’’ is set to be the : 
3 6587 6680 1! scope number in ASCII. Finally, if the scope is the global scope (the : 
3; 6588 6681 1! GST) or a named scope in a module which is not SET (or does not exist), 3 
; 6589 o68s 1! then the register RST entry is discarded and a zero SYMID is returned F 
: £230 poet ; : (no such symbol). : 
: $296 6685 1! The pogrecee RST entry and the numeric scope Module RST Entry (if any) 3 
3; 659 66 1! are both put on the Temporary RST Entry List. The address of the regres 3 
3; 6594 6687 1! ter RST entry is then returned as the register's SYMID. If the tony F 
; 6595 6688 1! symbol does not name a register or does not name a register in a SET 3 
3; 6596 6689 1! module, a zero is returned to indicate this. 3 
3; 6597 6690 1! : 
; 6598 6691 1 ! INPUTS Fy 
3; 6599 6692 1! PATHDESCR = A pointer to the Pathname Descriptor for the input symbol. : 
: 6600 6693 1! This descriptor thus identifies the symbol to be checked for 3 
; pred oge : being a register name. : 
; 660 2628 1! SCOPEPTR = A pointer to a Scope List Entry for the scope in which the : 
3 6604 6697 1! register is located. If there is no such scope, SCOPEPTR : 
3; 6605 e608 : is zero. : 
3 $607 $700 gg REG_LINE_LEX_PTR = If there is a Line number in the symbol pethnene, : 
3: 6608 6701 1! this parameter gives the SYMID of the lexical entity named : 
3; 6609 44 14 by that line number. If there is no Line number, this value 3 
3; 6610 67 1! is zero. 3 
3; 6611 67 zz : 
3 661¢ 6705 1 ! OUTPUTS F 
3; 661 Ore 7 3 If the input symbol is a register name, an RST Entry is created for 3 
3; 6614 6707 1! this register and its address is returned as the register's F} 
: oot? t4'+4 : SYMID. If the symbol is not a register, zero is returned. : 
3 $819 6710 1 : 
3; 6618 6711 BEGIN : 
3; 6619 ore : 
| 
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| 
3; 6621 6714 PATHDESCR: REF PTHSPATHNAME, ! Pointer to symbol Pathname Descriptor 
- o8 ¢ ort? SCOPEPTR: REF SCOPESENTRY; ! Pointer to Scope List Entry , 
E 6624 gri8 BIND ; alae : 
3 2 5 orl’ REGTBL = UPLIT Ps e aH ‘e Rg e at . } Register name table 
Hess, 6720 "RB 8) RO) RIO, tRIT SI 
> 6628 6721 “—_ = eS. ee. ee 
i eee $758 eth <, etrokctaees? hte 
> 6631 6726 ae arent 
3; 66 § 6725 LOCAL 
3; 66 67 § DSTNAME: REF VECTORC,BYTE), ! Pointer to DST record name field 
13 oe ¢ 4 i oareye: REF DSTSRECORD, taped Paks gee, gp te record 
; . ! name 
: + $ of , MODPTR: REF RSTSENTRY, } Pointer to Module Rs entry or ee ‘ 
eo . e€ 0 
; oe 3 of 1 hap REF VECTORC,BYTEI, } Pointer to, the symbols nane str ed 
3 ° ! Temporary in m 
3; 6640 67 § NUMNAME : vec Tons ig BYTE], ! hunbrte Jcope name in Counted ASCII 
3 6641 6734 NUMTEMP: VECTORL12, BYTE], ! Temporary used to compute aS 
3 6605 4 H NUMSCP_INVOC_NUM, : The invocet ton nunper associated with 
Pt H n fn 
3 6644 6737 PATHSTRING ! Pointer te pothnene Counted ASCII 
3 6645 6738 PATHVEC: REF VECTORC,LONG), ! Pointer to pathname vector 
3; 6646 6739 PNAME: REF VECTORC,BYTE), ! Pointer to Counted ASCII strin 
3: 6647 6740 . ! The register number of the register 
3 6648 6741 NAME: REF VECTORC BYTE), ! Pointer to Counted ASCII string 
3 6649 oreg RPTR: REF RSTSENTRY ! Temporary RST entry pointer 
3; 6650 674 RSTPTR: REF RSTSENTRY, ! Pointer to created register RST entry 
3 $321 ores SCOPE: REF RSTSENTRY, } rciggie A BoE gO a nance eeeee 
e . r 
3 reek 6746 SCOPENTRY: SCOPESENTRY ' Local copy of Input Scope Lint Entry. 
3 6654 6747 TEMPNAME: VECTORLS, BYTE), i Upcased copy of symbol name 
3; 6655 6748 $ ' The numeric scope number--used to con- 
3 $638 th ! vert that number to decimal ASCII 
3 6658 6751 
3 6659 or 36 
: 6660 675 ! Check that this Pathname Descriptor describes a symbol name without data 
3; 6661 6754 ! qualification and that the symbol contains at least two characters (such 
3 preg) 6755 ' as RS’) and at most four characters (such as ‘ZR11""). If not, this is 
3 e007 erst } not a register reference and we return zero. 
: 6665 6758 if -PATHDESCRCPTHSB_PATHCNT) NEQ .PATHDESCRCPTHSB_TOTCNT) THEN RETURN 0; 
3 6666 6759 PATHVEC = PATHDESCREIPTHSA_PATHVECTOR); 
3 666 6760 NAMEPTR = .PATHVEC( .PATHDESCR(PTHSB_PATHCNT) = 1); 
3; 6668 6761 LENGTH = .NAMEPTR 3 
: 6069 ore If .LENGTH LSS 2 pf eLENGTH GTR 4 THEN RETURN 0; 
; 6670 676 NAMEPTR = NAMEPTR(1); 
3 6671 6764 
; o67¢ 6765 
: +h 6766 If the symbol contains a leading percent-sign (as in ‘3R5"'), strip it off. 
: 6675 6768 if .NAMEPTRLO) EQL '2" 
; 6676 676 TH 
3; 667 6770 BEGIN 
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(3 667 6771 NAMEPTR = .NAMEPTR + 1; 

; 667 orre LENGTH = .LENGTH = 1; 

3 677 END; 

+ ee 

; i e778 ! Copy the symbol name to a temporary buffer. The somperery copy is 
3 eee 677 : upc eased so that register names are recognized regardless of case. 
3 5 errs } This is mainly important for Language C. 

: gen? 6780 INCR I FROM 0 TO .LENGTH = 1 DO 

; 6688 6781 BEGIN 

3; 6689 67 ¢ TEMPNAMECL.1] = .NAMEPTRCE.1]; 

; 6690 67 4 IFC TEMPHAREC. 1] GEQ 'a*') AND <.TEMPNAMEL.1) LEQ ‘z°) 

: 669 6785 TEMPNAMEL.1) = .TEMPNAMEL.1] = ‘a’ + ‘A’; 

3; 669 67 

3 6694 67 END; 

Be oe 

: ret] 6790 ! Loop through the List of valid register names to see if this symbol's 
; $68 O79) name is a register name. 

: $700 $798 REGNUM = 1; 

é om ore INCR I FROM 0 TO 20 DO 

; 6708 6796 IF CHSEQL (LENGTH, TEMPNAME, 3, REGTBLC.1), ° °) 

oe Be Hl = 

; ore 6800 4 EXITLOOP; 

; 6708 6801 END; 

3: 6709 680 

3; $710 689 END; 

ne 

; er§ one If the symbol name was not a register name, return zero--not a register. 
: 6715 6808 if .REGNUM LSS 0 THEN RETURN 0; 

i 

: 6718 6811 ' It is a regigter “m- If REGNUM is Larger than 16, the user requested 
: or ett R12, R13, R14, or R15, so we reset REGNUM to point to AP, FP, SP, or PC. 
: 6721 6814 if .REGNUM GTR 16 THEN REGNUM = REGNUM - 5; 

 8h58 rt 
3 o7 : ? 13 Create a Data RST Entry for the register. 

: 67 $ 6 i RSTPTR = DBGSGET_MEMORY(RSTSK _DATENTSIZ + (11 * ZUPVAL)/ZUPVAL); 
E 67 0 DSTPTR = .RSTPTR7* RSTSK DATERTSIZ*ZUPVAL; 

; 6728 6 RSTPTRCRSTSL_OSTPIR] = .DSTPTR; 

; 67 6 g RSTPTRCRSTSB_KIND) = RSTSK_DATA; 

; 67 STPTRERSTSV_-NONZLENGIH] =~ TRUE; 

3; 6731 4 RSTPTRLRSTSV_REGISTER) = TRUE; 

ot ee 
3 67 $ ! Also create a DST record for the register. This DST record makes 
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DSTPTRCDST$B_LENGTH] = + aLENGTH: 

DSTPTR DSTSB-TYPE) : pstsk Srak YPE_L: 
DSTPTREDSTSV_VALKIND] = abst k WACK IN REG; 
DSTPTREDSTSL- VALUE) 

DSTPTREDSTSB_NAM = ENCTH § 1; 

DSTNAME = DSTPTREDSTSA NAME); 

DSTNAMEC1) = 'S'; 

CHE» 2VE(.LENGTH, REGTBLC.REGNUM], DSTNAME(2J); 


! Link the new RST entry into the Temporary RST Entry List. 


RSTPTRERSTSL HASH ANS = .RSTSTEMP_LIST; 
RSTSTEMP_LIST = .RSTP 


Make a local copy of the Scope List Entry. Then see if the scope is a 
module scope (as opposed to a routine scope) and is not eapt rs Vr speci- 
fied as a pathname; this will commonly be the case in Language MACR 

If so, we change the scope to numeric scope 0 by modifyin e ~—y 
Scope List Entry. This causes the the current value of the specified 
register to be shown. 


' 
i 
i 
i 
i 
i 
i 
if sscoveorn 0 THEN RETURN 0 
CHSHOVE SCOPE ENTS 126 02U eval * SCOPEPTR, SCOPENTRY); 
IF (*SLOPENTRYESCOPESL ST ATE E - SCOPESK NORMAL) AND 
(-PATHDESCR PTH$8_TOTCNT) EQL 1 

NBEGIN 

RPTR = .SCOPENTRYCSCOPESL_RSTPTRI; 

WHILE sRPTRERSTSO_ KIND) NEQ RSTSK_ROUTINE DO 


ot IRPTRERSTSB KIND] EQL RSTSK_MODULE 


BEGIN 
SCOPENTRYCSCOPESL_STATE) = SCOPESK_NUMBERED; 
hy SCOPESL-MODPTR) = 0; 


oan = .RPTRCRSTSL_UPSCOPEPTRI; 


Similarly, if the scope is the Global Scope (the GST) and is not expli- 
citly specified as a pathname, we change the scope to numeric scope 0. 
This situation is not particularly common, but most Likely the user wants 
the current register value in this situation. 


f CS oer eeenteiaseey STATE] EQL SCOPESK_GLOBAL) AND 
(oPATHDESCR PTH$B_TOTCNT) EQL 1) 
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; 679 6885 BEGIN 
; 679 6 § SCOPENTRY[SCOPESL_STATE) = SLOPES _UMBERED: 
; 6796 6 SCOPENTRYLSCOPESL_MODPTR] = 0; 
; 6795 6 3 END; 
: Bh9 3 
; 6798 6891 ! Now determine what scope this register RST entry should be put in. This 
3 o444 ? 3 } is determined by the kind of the local Scope List Entry. 
H pert tt SAGE, SCOPENTOTLCOPER, STATE? FROM SCOPESK_NORMAL TO SCOPESK_SETMODS OF 
: 680 6 
; 6804 rt] 
; 6805 yet ! Handle normal named scopes. If the scope'’s module is not set, we 
; 6806 6899 1 return zero (no such register). Otherwise, we have a good scope and 
; 6807 6900 ! simply put this scope up-scope from the register RST entry. We then 
; 6808 6901 ! return the address of the register RST entry as the register SYMID 
3 ett b4' : unless a Line number appeared in the pathname. 
3; 6811 6904 CSCOPESK_NORMAL): 
; 681 6905 BEGIN 
3; 681 6906 MODPTR = ee nrtic nepes? MODPTRI; 
3; 6814 6907 IF NOT .MODPTREIRSTSV_MODSET] THEN RETURN 0; 
; 6815 6908 RSTPTRCRSTSL_UPSCOPEPTR) = .SCOPENTRYLSCOPESL_RSTPIR; 
; G88 6909 
3; 681 6910 
; 6818 6911 ! If there is a Line number in the pathname, then the Line number 
3; 6819 691 ! refers to the lexical entity pointed to by REG_LINE_LEX_PTR. In 
; 6820 691 ' this case we make sure the scope we have contains that entity; 
3; 6821 6914 ! otherwise the pathname is in error and we return 0. the 
; 68 ¢ 6915 ! pathname is okay, we attach the register SYMID to the lexical 
3 eth 24 entity specified by the Line number. 
3; 6825 6918 IF .REG_LINE_LEX_PTR NEQ 0 
; 68 $ 6919 THEN 
; 68 6920 4 BEGIN 
3; 6828 6921 4 RPTR = .REG LINE_LEX_PTR; 
: 6829 69 ; 4 WHILE TRUE BO 
; 68350 69 5 BEGIN 
; 6831 6924 5§ IF .RPTRCRST$SB_KIND) EQL RSTSK_MODULE THEN RETURN 0; 
3; 68 ¢ 6925 5 IF .RPTR EQL eRSTPTRCRSTSL_UPSCOPEPTRI 
3; 68 69 $ 5 HEN 
3; 68 69 6 BEGIN 
: 68 5 69 g 6 RSTPTRCRSTSL_UPSCOPEPTR) = .REG_LINE_LEX_PTR; 
$ 69 EXITLOOP; 
3; 68 6930 END; 
; 6838 6931 
; 6839 69 § 5 RPTR = .RPTRCRSTSL_UPSCOPEPTRI; 
; 0 69 4 END; 
; 6841 6934 4 
3 4 6935 END; 
; 69 
3 68446 69 ; 
3; 6845 69 3 ! Unless there was an invocation number in the pathname, return the 
$ es} $875 register SYMID now. 
: 8 6941 If .PATHDESCRCPTHSB_LOCINVOC) EQL 0 THEN RETURN .RSTPTR; 
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6349 694 

e820 694 

68 6944 1 There is an invocation number. Find the inner=most routine con- 
6826 6945 : cpining the declaration of this symbol. This is the routine to 
eth $30 which the invocation number must apply. 

282? 694 RPTR = .RSTPTR:; 

6896 6949 WHILE .RPTRCRSTSB_KIND] NEQ RSTSK_ROUTINE DO 

6858 6951 IF .RPTRCRST$B_KIND] EQL RSTSK_MODULE 

6859 695 THEN 

6860 69 peein 

6861 6954 DBG voy bs ig TO_CS(.PATHDESCR, PATHSTRING); 

o80¢ $322 1 tat eMISIRVNUM, 1, .PATHSTRING); 


= 
o 
oO 
uw 


te = .RPTRCRSTSL_UPSCOPEPTRI; 


SSeERee 


: Now make sure the invocation number was indeed appended to that 
} routine name in the pathname. 


PNAME = .PATHVECC.PATHDESCRCPTHSB LOCINvOC] - 1); 
RNAME = DBGSGET DST_NAME(.RPTRLRSTSL_DSTPTRI); 
IF CHSNEG(PRARELOJ, PNAMEC1], .RNAMECOJ, RNAMEC1), 0) 


EER 


BEGIN 
DBGSNPATHDESC_TO_CS(.PATHDESCR, PATHSTRING): 
SIGNAL (DBGS_ATSIRVNUA. 1, .PATHSTRING); 


: All looks good. Create the Invocation Number RST Entry along 
! with a new copy of the symbol's RST entry if the number is 
non-zero. 


if -PATHDESCRCPTHSL_INVOCNUM) NEQ 0 

RSTPTR = DBGSBUILD_INVOC_RST(.RSTPTR, .PATHDESCRIPTHSL_INVOCNUM)); 
RETURN .RSTPTR; 
END; ! End of Normal scope code 


! Handle numeric scopes. (A ‘numeric scope’ is the cope a specified 

: number of call frames down in the VAX call stack; 2\2R5. for example, 
! refers to 3R5 in the call frame two levels down in the stack.) Here 
! we do one of two things: if we can find a named scope in a SET module 
' correspond ng to the given numeric scope, we attach the register RST 
; entry to that scope; and if we cannot, we create a special ‘numeric 

! scope’’ Module RST Entry to represent the unnamed numeric scope. In 
either case, we return a non-zero register SYMID. 

if 


SCOPESK NUMBERED): 
BEGIN 
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3; ¢ $999 

; 690 0 

; 6 7001 ! See if we can convert this numeric scope to a regular named scope 
3; 6 7 § ! with a normal RST entry. If so, we put that scope RST entry ve" 
; 691 700 ' scope from the register RST entry and return the register SYMID. 
; 4 f Be } (Note that we build an Invocation Number RST Entry if necessary.) 
; 691 Phe DBGSSTA_NUMBERED_SCOPE(.SCOPENTRYCSCOPESL_MODPTRI, 

: 6914 7 MODPTR, SCOPE, NUMSCP_INVOC_NUM); 

; 6915 7008 IF .SCOPE NEQ 0 

3; 691 7009 THEN 

; 691 7010 4 BEGIN 

; 6918 7011 4 RSTPTRCRSTSL_UPSCOPEPTR] = .SCOPE; 

; a4 rig ? IF .NUMSCP_IRVOC_NUM NEQ 0 

H 5 1 mie 2 RSTPTR = DBGSBUILD_INVOC_RST(.RSTPTR, .NUMSCP_INVOC_NUM); 
3; 69 5 Pie 4 RETURN .RSTPTR; 

3 6926 701 END; 

: 6925 7018 

3 $ 7019 

; 69 se ! We have a numeric scope, but it does not correspond to any RST 

3; 6928 7021 ! entry in any SET module. We therefore create a ‘numeric scope’ 
3; 6929 70 ¢ ! Module RST Entry to represent the numeric scope. This entry has 
; 69 70 ! the RSTSV_MODNUMSCP bit set and will therefore be recognized as 
; oo3) 44 : representing a numbered stack frame by DBGSSTA_SETCONTEXT. 

3; 693 7026 ! First generate the name of this pseudo-module, namely the scope 
; 69 7027 ' mumber in Counted ASCII. We get the scope number from the Scope 
; $3 5 4 8 } List Entry. 

3; 6937 7030 VALUE = .SCOPENTRYCSCOPESL_MODPTR); 

3; 6938 7031 LENGTH = 0; 

; 6939 70 § WHILE TRUE DO 

3; 6940 70 4 BEGIN 

3 6941 ite 4 NEWVALUE = Ot ll 

3: 694 7035 4 NUMTEMPC.LENGTH) = .VALUE = .NEWVALUE*10 + ‘'O'; 

3; 694 O36 4 LENGTH = .LENGTH ¢ 1; 

3 6944 7037 4 IF .NEWVALUE EQL 0 THEN EXITLOOP; 

3 6945 7038 4 VALUE = .NEWVALUE; 

3; 694 7039 END; 

3 694 7040 

3; 6948 7041 NUMTEMPC.LENGTH) = .LENGTH; 

> 6949 704 INCR I FROM 0 TO .LENGTH 06 

3; 6950 7 NUMNAMEC.1] = .NUMTEMPL.LENGTH - .1); 

3; 6951 7044 

3; 695 epee 

; 695 ? ri) : Now allocate space for this ‘‘module’’ RST entry and the associated 
3 6954 7 ' Module Begin and Module End DST entries. Then nt nume- 
: $032 4 3 ric scope’ Module RST Entry, including the RSTSV_MODNUMSCP flag. 
s £389 7050 4 MODPTR = DBGSGET_MEMORY(RSTSK_MODENTSIZ + (DSTSK_MODBEG_SIZE 

: 695 121 + ,LENGTH * DSTSK POPE ND SIZE * ZUPVAL = 1)7ZUPVAL); 

3; 695 7 26 DSTPTR = .MODPTR + RSTSK_MODERTSIZ*Z0PVAL; 

3; 6960 705 MODPTRERSTSL_DSTPTR] = .OSTPTR; 

3: 6961 7054 MODPTR Ret ee KIND) = RSTSK_MODULE; 

3; 6962 7055 MODPTRIRSTS$B_LANGUAGE) = .DBG$GB_LANGUAGE; 
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; 6963 7 § MODPTRERSTSL_MODSCPNUM BS porrerehye et 

3 6964 7 MODPTRELRSTSV_ Bays Pa RUE; 

; 6965 7 8 MODPTRLRSTSV_MODSET 

3 6966 705 MODPTRERSTSV—MOD_IN_ asti. : fRuE; 

: 8e6 ret 

: 3534 7080 Also fill in the dummy module's Module Begin and End DST records. 
3; 6971 7064 DSTPTRIDSTS$B -LENGINI = eshte noes pooets.. SIZE - 1 + LENGTH; 

; 697 7065 DSTPTRLDST$B_TYPE) 

; 697 706 DSTPTREDSTSL_ mbeegt at ANGUAGE OG ODPTR RST$B_LANGUAGEJ; 

; 6974 7 CHSMOVE (.LENGT WANA 01, DSTPTR DSTSB-MODBEG_NAMEJ); 

; 6975 7068 DSTPTR = sesteres ST$K MODBEG SIZE + ,LENGTA; 

3; 697 7069 DSTPTRCDSTSB_LENGTH] = DSTSK woe ND. SIZE = 1; 

3; 697 7070 DSTPTRCDST$B_TYPE) = DSTSK *RODEND 

; 6978 707 

3; 6979 707 

: 6980 707 ! Put the dummy Module RST Entry on the Tenporery RST Bong | List. 
; 6981 7074 ! Also put it up=-scope from the register RST entry. Then return 
3 o38 ee the address of the register RST entry as the register SYMID. 

; 6984 707 MODPTRCRSTSL_HASH FLINK) = .RSTSTEMP_LIST; 

3; 6985 7078 RSTSTEMP_LIST = .MOD 

: 6986 7079 RSTPTRERSTSL UPSCOPEPTR) = .MODPTR; 

3; 698 7080 RETURN .RSTPTR; 

3; 6988 ied END; 

; 6989 70 ; 

; 6990 708 

3; 6991 7084 ! Any other scope (such as the global scope) cannot contain a register, 
3 oy i +H ! so we return zero to indicate that this is not a register. 

3 6994 7087 t INRANGE OUTRANGE): 

> 6995 7088 RETURN 0; 

3 7089 

3; 6997 7090 TES; 

3; 6998 7091 

3 6999 7092 1 END; 
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0441 -BLKB 3 
‘ © $2 O44 P.AEE: ASCII ARO \ : 
448 “ASCII \RI \ : 
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lee 
; Check for a no Primary 
if ePrtaper EQLA 0 

SDBG_ERROR( "RSTACCESS\GET_RECORD_ADDRESS = zero primary’ ); 


ee 
Make a copy of the current primary so we can mangle it 


if NOT DBGSNCOPY_DESC( .Primptr, Local_primary, Err_vec, FALSE ) 
BEGIN 
EXTERNAL ROUTINE 
LIBSSIGNAL : ADDRESSING_MODE (GENERAL); 
BUILTIN 


LLG; 
CALLG (.Err_vec, LIBSSIGNAL ); 
END; 
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we wrap around we know that we want just the first subnode 
-@. A.B.C where A is the record whose address we want. 
- If we find a TPTR we know we want it and its object. 
-@. Q.P*A.B.C where Q.P* is what we want. 
3. os WO Sent the inner most record we stop when we see a record 
subnode. 


+ 
Loop peckuerds on the primary. 
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r 1 ? ! ROUTINE GET_RECORD_ADDRESS( Primptr, Inner_outer_flag ) = 
7 § 95 1 ! FUNCTION 
7 39 a GET_RECORD ADDRESS returns the address of the inner or outer record 
7005 1; based on the primary pointer one the og passed. 
7 a8 1} It*s called from the stack machine when the value of a record's field 
700 1: depends on the contents of the record. 
7008 00 1! 
7010 : : cong impt A poi i d i db l 
: rimptr - ointer to a primary descriptor passe value. 
7011 4 ,! Inner _outer_flag - A Flag indicating whether the inner or outer record 
rts ,: address should be returned. 
701 Be 
7014 1 ! OUTPUTS 
Pele p : The address of the record. 
7017 : : SIDE g ahi. as ee 
: rrors may be signale 
O19 11 Behring 
7020 1 BEGIN 
7021 1 
70 ¢ 1 LOCAL 
70 1 Current_subnode : REF DBGSPRIM_NODE, ! Pointer to the current subnode 
7024 1 Err_vec, ! Returned by DBGSNCOPY_DESC 
7025 1 Locdt current pr ivery ' For DBGSGL_CURRENT_PRIMARY 
1 Local_primary : REF BGSPRIMARY ! Pointer to the copied primary 
7 1 Local_val_desc : REF DBGSVALDESC; ! Local value descriptor 
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Current._subnode = .Local_primaryl DBGSL_PRIM_BLINK J; 
WHILE ‘Current. subnode web loeoloriaerlt bBCSt PRIM: FLINK ] 00 


N 
= -Current_subnodel DBGSB_PNODE_FCODE J OF 


<z 


ow 


CRSTSK_TYPE_RECORD): 
-Inner_outer_flag EQL Inner 


THEN 
EXITLOOP; 
CRSTSK_TYPE_TPTR, 
RSTSK-TYPE-PTRJ: 


BEGIN 
Current _subnode = .Current_subnodel DBGSL_PNODE_FLINK J; 


4 
4 EXITLOOP; 
END; 
TES; 
aes scetiaaae = .Current_subnode[ DBGSL_PNODE_BLINK J; 
: Go forward one if we wrapped around | 
Fagg er rent ubnete EQL Local_primary(l DBGSL_PRIM_FLINK J 
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Current _subnode = .Current_subnode[ DBGSL_PNODE_FLINK J; 
Check that all is well 
If .Current_subnodel DBGSB_PNODE_FCODE J NEQ RSTSK_TYPE_RECORD 

SDBG_ERROR( “RSTACCESS\GET_RECORD_ADDRESS = No record in Primary desc. Bad DST’ ); 
} Trim off what we don't want 


Local_primary( OBGSL_PRIM_BLINK } = _.Current_subnode; 
Current_subnodel DBGSL_PNODE_FLINK ] = Local“primaryl DBGSL_PRIM_FLINK J; 


: Save DBGSGL_CURRENT_PRIMARY because DBGSPRIM_TO_VAL updates it 

Local_current_primary = .DBGSGL_CURRENT_PRIMARY; 

: Get the value 

If NOT DBGSPRIM_TO_VAL( .Local_primary, DBGSK_V_VALUE_DESC, Local_val_desc ) 
SDBG_ERROR( ‘RSTACCESS\GET_RECORD_ADDRESS - DBGSPRIM_TO_VAL failed. Bad DST" ); 

Restore DBGSGL_CURRENT_PRIMARY because DBGSPRIM_TO_VAL updates it 

DBGSGL_CURKENT_PRIMARY = .Local_current_primary; 

RETURN .Local_val_desc{ DBGSL_VALUE_POINTER J; 

END; 
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F 54 45 & 53 53 45 43 463 41 54 53 5 498 P.AEF: ASCII \*RSTACCESS\<92>\GET_RECORD_ADDRESS = ze\ ; 
6 8 $3 0d 8 22 i GF SR td e oF 43 ig : ry echacchn petentancintinen tic eich 
29 2 61 $9 6 72 $3 i é 4BA eASCII \ro primar \ : 
SF 54 45 47 55 53 53 45 43 43 41 56 é 4 4C4 P.AEG: ASCII \ARS ACCESS\<92>\GET_RECORD_ ADDRESS -No\ : 
20 53 53 45 44 44 41 «SE 44 «52 af i ; i : 
6D 69 72 50 2 9 4 72 6F 63 4 eASCII \ d in Pri desc. Bad DST\ : 
oe 88 oe fy Gf 86 SF 88 $3 fe Se 88 f8 ; | 9046 seeps, gee tage : 
SF 45 47 53 53 45 43 463 41 54 5S F 306 P.AEH: . ASCII \?RSTACCESS\<92>\GET_RECORD_ADDRESS - DB\ : 
20 33 53 45 35 44 44 41 «SF O44 O52 af 43 is 2 0 19 - . : 
66 20 4C 41 56 SF GF S& SF 4D 49 $3 5¢ 3? 3 0388 .ASCII \GSPRIM_TO_VAL failed. Bad DST\ : 
54 44 20 64 61 42 20 20 2€ 64 65 6¢€ 69 61 005 F 
.EXTRN LIBSSIGNAL 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OOFC 00000 GET_RECORD_ADDRESS: 
«WORD Save R2,R3,R4,R5,R6,R7 3: 7093 
57 90000000G 00 9 00002 MOVAB DBGSGL_CURRENT_PRIMARY, R7 : 
36 0000000' EF 9€ 00009 MOVAB P.AEF, “R6 ; 
33 000000006 60 9 0 19 HOVA LigSSiGNAL. RS : 
04 AC 05 OOOTA TSTL § PRIMPTR + 7124. 
gD 12 00010 BNEO 3=s«*18 : 
6 DD 0 1F PUSHL R6 > 7126) 
1 OD 1 PUSHL @# : | 
00028362 8F OD 3 PUSHL #164706 : 
65 3 FB 000 CALLS #3, LIBSSIGNAL ; 
E 04 C 1$: CLAL 0s = ¢ §P) + 7131 
04 AE OF F PUSHAB ERR_VEC : 
O¢ AE OF 00 PUSHAB LOCAL PRIMARY : 
4 AC 0d 00 PUSHL PRIMPTR : 
000000006 00 ‘ FB 7 CALLS #4, DBGSNCOPY_DESC ; 
3 90 BE FA CALLG  @€AR VEC L 1B$S 1 GNAL : 7138 
ae - og 45 2%: MOVL OCAC_PRIMARY, R : 7150 
2 18 OA p 9 MOVL zai J, CURRENT_SUBNODE : | 
4 46 «OA D MOVAB 20(R3). RG : 7151 
4 3 o} } 38 CPL RENT_SUBNODE, R4 
50 09 =A gh 6 MOVZBL 9(CURRENT_SUBNODE), RO ; 2153 
; A CMPB CRO, #7 : 7156 
1 D BNEQ F 
02 08 aC p F CPL NNER_OUTER_FLAG, #2 ; 7157 
- 3 1 a a : 7159 
3 13 0006A BEQL ee: : 
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cMPB CRO, #16 

BNEQ 
5$: MOVL URRENT_SUBNODE), CURRENT_SUBNODE 
6$: MOVL 4(CURRENT_SUBNODE), CURRENT_SUBNODE 
7$: cMPL RRENT_SUBNODE, RG 

MOVL § (CURRENT_SUBNODE) CURRENT. SUBNODE 
8$: CMPB =. 9(CURRENT_SUBNODES , 

BEQL «=ss«O9S 

PUSHAB P AEG 

PUSHL 

PUSHL F647 

CALLS @ 
9$: MOVL Sabi ST SNObE 24 (3) 

MOVL (CURRENT _SUBNODE ) 

MOVL OB péscce CURRERT PRIMARY, ° 

LOCA t “iA f. ENT T Pri 

PUSHAB  L i.” est 

MOVZBL 

PUSHL 

CALLS 3. seaest TO_VAL 

BLBS 0° 

PUSHAB P. 

PUSHL 

PUSHL 

CALLS SSIGNA 
108: VL eat ratty L PRIMARY . 

ALADESC: PRIMARY 

MOVL POCA, A waht 

MOVL 

RET 
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ROUTINE GET_REGISTER_VALUES(CURRENT_FP, RUNFRAME_PTR, REGVECTOR): NOVALUE = 


FUNCTION 


This routine determines the register values associated with a given 
CALL frame on the VAX call stack. It accepts a PC value and a frame 
pointer value and some other arguments as input, and produces a vector 
of register save addresses as ess By indirecting through those 
save addresses, the actual register values associated with the given 
CALL frame can be obtained. 


In addition to getting the addresses of all registers saved in a normal 
CALL frame, this routine understands how to get the register values 
associated with the CALL frames generated by calls on exception hand- 
lers (which have a return address pointing into system space) and by 
DEBUG CALL commands (which have a return address pointing into DEBUG). 
In the case of calls on exception handlers, some register values (in- 
dee de the PC) must be gotten from the exception handler'’s signal and 
mechanism arguments. In the case of DEBUG CALL commands, all of the 
register values of the next stack frame must be gotten from DEBUG's 
stack of saved run-frames. 


INPUTS 


CURRENT_FP = The address of the CALL frame from which the new set of 
register save locations is to be extracted. This is thus 
the value of FP in the called routine. 


RUNFRAME_PTR = The address of a songuers which must be initialized to 
contain the value .OBGSRUNFRAMECDBGSL_NEXT_LINK] before this 
ee a is called in the course of looping through the 

stack. 


REGVECTOR = The address of a 17-longword vector to receive all register 
save addresses from the current CALL frame. 


OUTPUTS 


RUNFRAME _PTR = The RUNFRAME_PTR Location is updated to point to the 
next saved run-frame on the CALL command run-frame stack 
each time one such run-frame is accessed to get the register 
values of the routine which was active at the time of the 
CALL command. 


REGVECTOR = The addresses at which registers 0 - 16 are saved for the 
iven CALL frame are returned to longwords 0 - 16 of the 
EGVECTOR vector. (Register 16 is the PSW in this context.) 


BEGIN 


) ' The address of the current CALL frame 
! Pointer to saved-runframe pointer 

j; ' Pointer to the vector of register 
; save location addresses 


Pp 
CURRENT _FP: REF BLOCK 
RUNFRAME PTR: REF VEC 
REGVECTOR: REF VECTOR 
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SPVALUE: REF VECTORC,LONG); ' Current CALL frame's SP value 
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7173 LOCAL 
; 7174 CALLER PC, ! The PC of the caller of the current 
; 7175 : routine (the return address) 
; 717 J : index value used for several purposes 
méCH : RE Po 


VECTOR: REF 8B OcKC BYTE), 
REGMASK: BITVECTOR( 16) 
REGSAVELOC: REF VECTORE, LONG), 


REGVEC: VECTORL17, LONGI, 


' 

' 

' 

: nter to Mechanism oor Vector 
! The register save mask bit vector 

' Pointer to CALL frame register qeve 

} area for registers RO = R1 

' Pointer to a register’s save location 
Vector of pointers to save areas for 
! 
i 
! 
' 


ARUN OS ~ 


SAVED _REGVECTOR: ! Pointer to vector of saved registers 
REF VECTORC,LONG), ' im saved CALL command runframe 
SAVED_RUNF RAME : ' Pointer to saved runframe from the 


F BLOCKE 


E erred, EBUG CALL command 
SIG_VECTOR: REF VECTORL,LONG); 


i Pointer to the Signal Argument Vector 


Get the return PC stored in the current CALL frame. 
CALLER_PC = .CURRENT_FPCSFSL_SAVE_PC); 


Check to see if this is an exception handler. (A handler is recognized 
by having a return PC of hex 80000014, which is where the VMS exception 
handling mechanism calls user handlers.) If this is an exception hand- 
ler, we must get the register values of the signaller from the current 
call frame, from the signal arguments, and from the mechanism arguments, 
depending on the register. 


ae EQL %x°80000014" 
BEGIN 
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Extract the save addresses of AP and FP for this CALL frame. 


REGVECTORE 12) = CURRENT_FPCSFSL_SAVE_AP); 
REGVECTORC13) = CURRENT~FPCSFSL~SAVE_FPI; 


MOMIhoNoTononons 


ARUVAOSSVE AP UNL OLS NS AR OOo 


Extrece the save locations of all other saved registers in this CALL 
! frame. 


REGMASK = .CURRENT FPCSF$W_SAVE_MASK]; 
REGSAVELOC = CURRERT_FPCSFSL_SAVE_REGS); 


J =0 
INCR | FROM O TO 11 DO 


N 
IF ,REGMASKC.1J 
THEN 


BEGIN 
REGVECTOR(.13 = REGSAVELOCC.J); 
J2 J @ Ie 
END; 
END; 
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RSTACCESS 1b-se 1984 02:48:17 AX-11 Bliss-32 V4.0-74 Page 227 
yO4-008 1 7300-1382 eet fey DEBUG. ERCSASTACCESS 03951 ° &3} 8. 
: 5a 1353 # 
:7 ¢ 7 ; ' Set the stack pointer to point at the end of the saved registers. is £ 
3 7 7326 : Adjust it by the offset value. Also pass the one longword of junk : 7 
; 4 ¢ f 5 } the VMS signal mechanism puts on the stack (a JSB return address). : 4 
: 7 7 > SPVALUE = REGSAVELOCCE.J); 32 
37 7 § SPVALUE = .SPVALUE + .CURRENT_FPLSFSV_STACKOFFS); : 7 
: 7238 7 SPVALUE = .SPVALUE + 4; ee 
ns f 
+ 7241 7 ¢ ! Get the pointer to the signal argument List and pick up the address 3 2 
37 4g 7 ! of the saved PC in the signal argument list. We also pick up the 2 2 
3 f $ 4 : address of the saved PSL in the signal argument List. : 4 
: 7245 1336 SIG_VECTOR = .SPVALUEC1); : 72 
3; 7246 7 J = .$I1G FE TORE): 32 
3: 7246 7338 ReGvé ron ; = 16_vECTORE. 4 - 1); 3 2 
3 7248 7339 REGVECTORC16] = SIG-VECTORC.J); : 7 
1 if 
: 7251 raeg : Get the pointer to the mechanism argument List and pick up the save a 4 
3 i 25 1363 : addresses of the signaller's values of RO and R1. : f 
: 7254 7345 MECH VECTOR = .SPVALUE(2]; 7 7 
3 7255 7 46 REGVECTOREO] = MECH_VECTORCCHFSL_MCH_SAVROJ; 7 7 
; 7256 734 REGVECTOR(1J = MECH_VECTORCCHFSL_MCH_SAVR1); 77 
: 7258 309 : 7 
: 7259 7350 : Finally compute the SP value by skipping past the exception handler 327i 
; 7260 7351 : argument List, the List of signal arguments, one longword of trash, $7 
; 7261 y 2¢ and the List of mechanism arguments. : a 
: 7368 F3ez SPVALUE = ne dae ra Pt + 1); 3 7 
; 7264 7355 SPVALUE = SPVALUEL.SPVALUECO) + 1); 3 7] 
3 7265 7356 SPVALUE = .SPVALUE + 4; 3 7 
3 7266 7357 SPVALUE = SPVALUEL.SPVALUECO) + 1); : 71 
3; 7267 7358 REGVECTOR([14) = SPVALUE; 3 77 
: 7268 7359 END 3 7 
; 1390 Pet : 
: 7271 7 ¢) : Check to see if the current routine was called with a DEBUG CALL command. 3; 71 
3; 727 7 : (A CALL command is recognized by the DBGSPSEUDO_EXIT return address.) : 7 
3; 727 7364 ! If so, we must Sh | out all the register values as they were at the time 3 2 
3 7274 7365 ' of the CALL. We ig out the save locations of these values from the run- $i 
3 4 o f : frame at our current location on the saved-runframe stack. : a 
: 727 7 ELSE IF .CALLER_PC EQL DBGSPSEUDO_EXIT 3 Zi 
3; 727 7 THEN 3; 71 
: 727 7 BEGIN 3: 7) 
3; 7280 7 SAVED_RUNFRAME = .RUNFRAME Sif ae 4) 
3; 7281 7 SAVED _REGVECTOR = SAVED_RURFRAME 6BGSL_USER_RO); 3 7] 
3 7 Ht 7 INCR T FROM 6 3 71 
: g 4 REGVECTORC.1] = SAVED_REGVECTORC.1); : 4 
:7 83 7 RUNFRAME _PTRCO) = .SAVED_RUNFRAMECDBGSL_NEXT_LINK); 3 71 
3 ve 7? END s vi 
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RSTACCESS 16-Sep-1984 02:48:17 AX-11 Bliss-32 V4.0-74 Page 228 
yO4-008 12-808- 1382 eet ey DEBUG. ERCTASTACCESS 09951 . (45) 
7388 +378 
7289 7380 ' for + other case, we have a normal CALL frame on the stack and we can 
if 4 4 1 } dig out the register values in the normal way. That is done here. 
7 g 7 : ELSE 
7 BEGIN 
ris 
7 7 § ! Get the save locations of all registers of the set RO = R11 that are 
f 4 } saved in this CALL frame. Save those addresses in REGVECTOR. 
7 7 50 REGMASK = .CURRENT FPCSF$W_SAVE MASK): 
g , 91 REGSAVELOC = CURRERT_FPCSFSL_SAVE_REGS); 
4 . 
g , 38 : INCR I FROM 0 TO 11 DO 
7304 7395 4 If .REGMASKE.1) 
7305 7 38 4 THEN 
7 739 BEGIN 
7307 7398 REGVECTOREC.1] = REGSAVELOCE.J); 
7308 7399 fed 4 Vs 
7309 7400 4 END; 
7310 7401 & 
7311 rile END; 
F318 204 
7314 7405 ! If RO or R1 is not saved, we zero the corresponding REGVECTOR cells 
7315 7406 ! to indicate that those registers are not available at all--RO and R1 
f 18 re 4 : are not preserved over subroutine calls. 
7318 7409 if NOT -REGHASK EO} THEN REGVECTOREO} = 0; 
7319 7410 IF NOT .REGMASKL1] THEN REGVECTOR(1) = 0; 
ttt 
73 4 rig ! Get the addresses of the save locations for registers AP, FP, SP, 
4 mie PC, and PSW. Store those addresses in REGVECTOR. 
7325 2416 REGVECTOR(12) = CURRENT_FPCSFSL_SAVE_AP); 
7 $ 741 REGVECTORL1 = CURRENT _FPLSFSL_SAVE_FP); 
7 7418 REGVECTOR(14] = SPVALUE: 
7328 7419 REGVECTOR(15) = CURRENT_FPCSFSL_SAVE_PC); 
g 9 24 0 REGVECTORC16) = CURRENT—FPCSF$W-SAVE_PSW); 
7331 74 
7 § 74 § ! Determine the value of SP (the Stack Pointer) by nointing it to the 
7 7424 ! end of the register save area, adjust ing it by the offset value, and 
7 76425 : estat ing it past the CALLS argument List (if any). Save the computed 
g 5 i $ P value in SPVALUE. 
7 74 8 SPVALUE = REGSAVELOCL.J); 
7 74 SPVALUE = .SPVALUE ¢ .CURRENT_FPLSFSV_STACKOFFS); 
4 , st 0 JF CURRENT FPCSFSV_CALLS) THEN SPVALOE = .SPVALUE + 4*(.SPVALUELO) + 1); 
Re) 238 : 
7 : 7434 ! We are done getting the register values and can now return. 
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-PSECT DBGSOWN,NOEXE, 
00058 SPVALUE: .BLKB 


4 


-PSECT DBGSCODE,NOWRT, 


i 
RC 


$5<3¢ v4 
RSTA 


CCESS 


PIC.2 


SHR, 


PIC,0 


ORB Save R2,R3,R4,R5,R6.R7.RB 
MOV SPVALUE, R& 
MOVAB “68(SP) sP 
MOVL CURRENT R 
MOVL  16(R6) “CALLER. PC 
MOVL  REGVECTOR, R 
CMPL CALLER PC, #=2147483628 
BNE 4 
MOVAB 8(R6), 48(R3) 
MOVAB 12(R65, 32(R3) 
MOVW  6(R6), REGMA 
MOV 20(R65, REGSAVELOC 
CLRL J 
CLRL Od 
BBC I K 2 
MOVAL (REGSAVELOC)(CJJ, (R3)C1) 
INCL J 
AOBLEQ #11 
MOVAL (R eset, SPVALUE 
EXTZV #6, # 
ADDL2 RO. SPVALU 
ADDL #4, SPVALUE 
MOVL  SPVALUE, R 
MOVL 4 (RO), $1G VECTOR 
MOVL (SIG_VECTOR) 
MOVAL -4(STG VECTOR)(U) 60(R3) 
MOVAL (SIG VECTOR)(JJ, 64(R3) 
MOVL 8(ROT MECH vector 
MOVAB gcRiS, (R3Y 
MOVAB 16(R1). 4(R3) 
MOVL (RO), RO 
MOVA @SPVALUECROJ, SPVALUE 
ADDL2 #4 
MOVL SSévAL ho 
MOVA St a SPVALUE 
ADDL? #4, SPVA 
ADDL2 = #4. SPVALUE 
MOVL aSPVA RO 
ROVAL aspvacurtd SPVALUE 
ADDL S 
VAB SPVALUE. (R3) 
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6344 6244 
‘7 54 18 
08 BC 6 
2! 06 Ab 
1 14 ae 
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08 57 22 
OC BC40 6182 
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07 57 01 
50 Oc AC 
oO 04 A0 
0 A 08 A6 
4 A 0c ae 

8 OA 6 
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3; Routine Size: 296 bytes, Routine Base: DBGSCODE + 2FF 


1 
1 
A 
ni 
A8 
AB 
AD 
E 81 
D4 +} 
Dd B 
F tt) 
B OC 
0 900¢s 
E 000¢9 
D4 Q00CD 
04 Osi 
E1 D1 
DE 00005 
06 00008 
FS 000DD 
E8 OO0E1 
D4 OO0ES 
EO 000E7 
DO QO0EB 
D4 OOOEF 
9E Dore 
9E OO0F 
9E OOOFC 
9E 00100 
9E 00105 
DE Bot oe 
EF 0010€ 
CO 00114 
E1 00117 
DO 0011C 
OF it 0 
CO 00124 
04 00127 
1 


SO 
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DBGSPSEUDO_EXIT, RO 
ALLER_PC, RO 


@RUNFRAME_PTR, SAVED_RUNFRAME 
4(RO), SAVED_REGVECTOR 


(SAVED_REGVECTORICI, (R3)C1I 
SAVED_RUNFRAME), @RUNFRAME_PTR 
( 

0< 


R6), REGMASK 
R65, REGSAVELOC 


REGMASK, 7$ 
REGSAVELOC)(JJ, @REGVECTORCIJ 


J, SPVALUE 


ADA VM am wm 


RO 
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(R6), 10 
a@SPVALUE RO 
@SPVALUECROJ. SPVALUE 
#4, SPVALUE 
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; , Sts ! ROUTINE SCOPE _RULE_COBOL(PATHNAME, NCANDS, CANDLST, SCOPE) = : 
3 7 7441 1 ! FUNCTION $ 
3 ¢ 7442 1! This routine selects the symbol from a specified List of candidate sym- : 
s 7 7445 1! bols which best matches a specified pathname. This routine assumes : 
37 7444 «1«'! COBOL scope rules when doing so. This means that incomplete data quali- $ 
3 f eee? : } fication is accepted, and that uniqueness is determined by these rules: : 
3 7 7447 1! (1) By definition, the “lowest definition depth’’ is the Je 
s 7 7448 1! inner-most definition depth in the current scope at ; 
; g ries : which at least one candidate symbol is declared. : 
3 7 7451 1! (2) If gnty one candidate symbol is defined at the lowest : 
3 7 reas 1! definition depth, then that is the unique symbol we F 
if feat | — : 
3 ree : (3) Otherwise, the symbol is not unique. ; 
7 7457 1! An additional COBOL scope rule is that ony candidate which is not marked $ 
3: 7 7458 1! as ‘global’ (i.e., does not have the RST$V_COBOLGBL bit set) may not be : 
3 7 7459 1! declared outside the routine which contains the current scope. In other $ 
37 7460 1! words, a COBOL symbol declared in one routine is not visible in any $ 
3 4 red : } nested routine unless it is specifically marked as being so visible. : 
3 7 7465 1! The List of candidate symbols is produced by DBGSSTA_GETSYMBOL, and each | F 
3 7 7464 1! candidate is guaranteed to be in the current scope being searched. What : 
3 7 7465 1! this routine must do is to determine which candidates have valid data 3 
: 7 7466 1! oyes (tices ton. which candidate is defined at the lowest definition depth 3 
3; 7377 7467 1! i.e., defined inner-most in the current scope), and whether that candi- | é 
; 7378 7468 1! date is unique. The routine then returns one of three things: an indi- | $ 
3; 737 7469 1! cation that no symbol was valid, an indication that the symbol is not : 
: 4 39 pee ' unique, or an index pointing to the one selected candidate symbol. : 
2:7 ; 7472 1! INPUTS F 
3; 7 7475 1! PATHNAME - Pointer to the pathname descriptor for the symbol name to 3 
; f rf rere : be looked up in the symbol table. : 
3 i mis ; : NCANDS = The number of candidate symbols found by DBGSSTA_GETSYMBOL. : 
3; 7388 7478 1! CANDLST = A vector of pointers to the ‘candidate blocks’ for the candi- | : 
; 7389 7479 1! date syadots found by DBGSSTA_GETSYMBOL. Each of these candi- | 3 
; 7390 7480 1! dates is in the scope currently searched. The candidate block 3 
3 g 4 bi 1 : pointers are found in CANDLSTC1) through CANDLSTC.NCANDS). : 
3 7 98 74 § , ! SCOPE - A pointer to the RST entry for the current scope in which the 3 
3: 7394 74 +! ayeret is being looked up. This normally pore to a Routine : 
3; 7395 7485 1! RST Entry or a Lexical Block RST Entry. (COBOL Sections and 3 
Ba 96 74 1! Paragraphs are represented as lexical blocks in DEBUG.) If 3 
; 739 74 1! the current scope is the Global Scope (\) or ALL Set Modules, 3 
3; 7398 74 1! the SCOPE parameter is zero. 3 
3; 7399 7489 1! é 
; 7400 74 1 ! OUTPUTS ; 
3; 7601 7491 +1! The CANDLST index for the candidate block which best matches the path- 3 
3; 740 7492 1! name is returned as the routine'’s value. If no candidate is é 
3; 740 7495 1! acceptable, zero is returned, and if more than one candidate 3 
: be ete : is acceptable (the symbol is not unique), -1 is returned. 3 
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3; 74 7496 1 $j 
: rigs ri99 BEGIN 3 | 
: ribs regs | 
3 74 749 b 3 i 
: 7410 7500 PATHNAME: REF PTHSPATHNAME, ! Pointer to symbol pathname descriptor 3 
3: 7411 7501 CANDLST: REF VECTORC,LONGJ, ! Pointer to candidate vector 3 | 
; ris f 8g SCOPE: REF RSTSENTRY; ! Pointer to current scope RST entry 2 
3 7416 7504 ABEL 3 | 
; ole 4 5 CHECK_THIS_CANDIDATE; ! Label of block we want to LEAVE 2 
; aig 73 LOCAL ; | 
3 ois 7508 CANDBLK: REF CAND_BLOCKVECTOR, ! Pointer to current ‘‘candidate block’ 3 
3 741 7509 COBOLGBL_FLAG, ' Flag set to TRUE if the COBOL Global 3 
: 7420 7510 ! Attribute applies to this item 3 | 
3; 7421 Pet DATA_INDEX, ! Index into CANDBLK vector of Data Item 2 | 
3; 74 g 7 \¢ : RST cotry pointer (or zero) sf 
: 74 751 DATAQUAL_FLAG, ' Set to TRUE when we are in the data 3 | 
3: 7426 7514 ! quel ification part of a name 3 | 
3: 7425 7515 DEF DEPTH ! Definition depth of current candidate | 
; 74 6 516 DSTPTR: REF DSTSRECORD, i Pointer to symbol DST record 3 
; 74 751 GOOD_ CAND ! CANDLST index of best candidate so far 3 
: 7428 7518 GOOD-DEF DEPTH, ! Definition depth of GOOD_CAND symbol 3 | 
3: 7429 7519 ! Index for CANDBLK vector 3 i 
: 74 7520 RSTPTR: REF RSTSENTRY, i Pointer to current symbol RST entry 31 
: att 7521 SCPTR: REF RSTSENTRY, ! Pointer used to follow current scope's 3 
3; 74 ; 75 ¢ ; up=scope chain sf 
3 ree 3 ? SYMSCOPE: REF RSTSENTRY; ! The actual scope of the current symbol : 
: 7435 7525 3 | 
3 74 75 § 3 
3 743 75 ! Initially we do not have a good candidate. 3 
3; 7438 7528 ‘ : / 
3; 7439 7529 GOOD_CAND = 0; 3 
3; 7440 7530 GOOD_DEFDEPTH = 1000000; 3 
3 7441 7531 ‘e 
3; 744 £336 $f 
3 7446 75 ' Loop over all the candidate blocks on the candidate list. This loop 3 | 
3 Soe: P3ee searches for the best candidate symbol matching the pathname. ; 
3: 7466 75 INCR I FROM 1 TO .NCANDS DO 3 i 
3 7447 75 BEGIN gf 
3: 7468 7538 3 
3 7449 i} 9 3 
3; 7450 7540 ' Set up a labelled block to check out the current candidate. We can . 
3 et £36) : LEAVE this block if we find that the candidate is not acceptable. 3 | 
3 ; . | 
3: 745 7548 CHECK_THIS_CANDIDATE: 3 
3: 764546 7544 4 8 | 
: 7455 7545 4 CANDBLK = .CANDLSTC.1); ee 
3 745 7 m4 4 3 | 
3 745 7547 4 3 | 
; 7458 7548 4 : Loop over the candidate's up-scope chain--that is what the CANDBLK 4 
3; 7459 7549 4 ! vector gives us. Reject any candidate whose data qualification in 3 
3 reee 7331 ? } the up-scope chain does not agree with that in the pathname. 3 

3 : 2 | 
3 7462 7552 4 DATA_INDEX = 0; 3 
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FLAG = FALSE; ; 
: Te6P Fees ¢ DATAGUAL FLAG = TAUES : 
; rie? 3 ¢ dniLe: CANDOLKE.J. CAND_RSTPTR] NEQ 0 DO 
; 746? , HT = .CANDBLKC.J, CAND_RSTPTRI; 
‘ 5 : 
7086 F308 ! Clear DATAQUAL_FLAG if we have left the data qualification : 
; te e i part of the name. a 
: re i -J, CAND_PINDEX] LSS .PATHNAMECPTHSB_PATHCN 
rank i $5 sd (TEANDBLK ~ EAND-PINDEXI NEQ 6) ; 
: fF 7366 = Sm : 
; F268 ND) NEQ RSTSK_DATA) AND 
r73 1563 od CRSTPIRERST SBR END NEQ RSTSK-TYPCOMP) 
+ 7480 7570 ae « : 
; ree 138 DATAQUAL_FLAG = FALSE; ; 
res 737 i up-scope, we : 
: Pere the data qualification part going up e 
; 7abs 7376 tye groan wR Items or Type Components in Ene name. ; 
. ; 7 
: 7487 fe) if (NOT .DATAQUAL_FLAG) AND 
3 F378 PTRCRSTSB-KIND] EQL RSTSK_DATA OR : 
; 7489 eth 3  RSIPTR RSTSBKIND EQL RSTSK-TYPCOMP) ; 
; 7433 ie NLEAVE CHECK_THIS_CANDIDATE; ; 
: 13 P38 CANDBLK up- : 
; rege ta Item RST Entry in the 
; 7435 3B i them An Begg tng bay Be. in = ig ae 4 yk 
rigs reBs i COBOL Global Attribute flag if the RST entry ; 
. ; : 
; r499 7388 IF .RSTPTRCRSTSB_KIND) EQL RSTSK_DATA 
: THEN ; 
: 7500 7590 wae 
; 91 6 | : 
; a ne 3 Te ARSTPTRERSTSV_COBOLGBLI THEN COBOLGBL_FLAG = TRUE; 
Fab Fag bho: : 
: feos 7595 
Fag8 F398 ' Increment the CANDBLK index and loop up-scope. 
; 1508 7398 pee 
Be feee ~ Bor 
; 4 2 h from the last CANDBLK cell. ejec 3 
; 7318 re ¢ oe ei oe have a cane*eate Witt a segs def 
: aie re 5 ¢ i inition depth (i.e., defined closer to the 
. ; 
: re Fens RSTPTR = .CANDBLKC.DATA_INDEX, CAND_RSTPTR); 
BN reon DEFDEPTH = .CANDBLKL.J, CAND PINDEXT; NG SS? EE 
: a8 809 IF .DEFDEPTA GTR .GOOD’DEFDEPTH THEN LE _THIS. 
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! We have a good candidate here. If we wiresty have another candi- 
' date at the same definition depth, the symbol maybe s not unique. 
' We call a rout ing which attempts to resolve the amiguity. If it 

i resolves the amb quity. then it returns the appropriate index. 
' 


! It returns -1 if the reference really 


: 7520 fi 4 

; 7521 611 4 

3 7 612 & ! Unless the COBOL “‘global"’’ flag is set for this symbol, we see if 
3 7 § 7615 4 ' the symbol S doctor dina «Bs A outside the current 8 ope. 
; 7324 7614 4 : If it is, we must reject the symbol. In COBOL, a symbol is not 
: 7525 7615 4 i visible in nested rout ines unless marked as ‘global. Note that 
gs, § fois 4 ' we sk e this check if SCOPE is zero, mean ng hat the scope is 
s 7 7617 & ! the GST or all SET modules. We also skip the check for symbols 
. f rols ? which are not data--these rules do not apply to routines, etc. 
:7 2620 iF (NOT .COBOLGBL_FLAG) AND 

: 7531 £6 1 4 (.SCOPE NEG 

37 ¢ § 5 (.RSTPTRCRSTSB_KIND] EQL RSTSK_DATA) 

if resi THEN SeGIN 

> 7535 7625 

3 f 76 $ 

; 4 , t } Determine the scope in which the current symbol is declared. 
; 73 9 76 5 SYMSCOPE = .RSTPTR; 

: ree re , IF -RSTPTRCRST$B_KINDJ NEQ RSTSK_MODULE 

3 r34¢ £6 j SYMSCOPE = .RSTPTRCRSTSL_UPSCOPEPTRI; 

3 A og re : ad zSVASCOPECRSTSO_KINO) EQL RSTSK_TYPE 

; 2346 26 SYMSCOPE = .SYMSCOPECRSTSL_UPSCOPEPTRI; 

: 7548 76 

3; 7549 76 ' See if there is a routine declaration between the current 

3; 7550 7640 ! scope and the environment in which the symbol is declared. 
: 7551 7641 ! If so, reject this candidate--it is not visible from the 

: 7358 ree current scope. 

> 7554 7644 SCPTR = .SCOPE; 

; 1335 7645 3 WHILE, .SCPTR NEQ .SYMSCOPE DO 

3 arth ree ? IF .SCPTRCRSTSB_KIND] EQL RSTSK_ROUTINE 

; 1359 7649 : LEAVE CHECK_THIS_CANDIDATE; 

3 7361 065 6 IF -SCPTRCRSTSB_KIND) EQL RSTSK_MODULE 

; 4 $¢ 4 ? SDBG_ERROR(*RSTACCESS\SCOPE_RULE_COBOL'); 

; 4 

3 4 

4 4 

3 4 

3 4 

3 4 

; 4 

; 4 
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NO FUN—oso 


BEG] 


iSosep- 1964 03:48:17 


AX-11 Ot ieee ae Fh gt | 
DEBUG. SRC JRSTACCESS.832;1 


IF_.DEFDEPTH EQL .GOOD_DEFDEPTH 
THEN 


N 
i +-GOOD_CAND EQL -1 


TE: 


NDIDATE 
CHECK DUPLICATE(.CANDLST, 1, .GOOD_CAND); 


ave a good candidate which is unique (so far) at this defini- 
Set GOOD_CAND accordingly. 


! End of the CHECK_THIS_CANDIDATE block 
! End of INCR loop over candidate List 


This may be -1, 0, or a true CANDLST index. 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


4 
4 
| LEAVE CHECK_THIS CA 
GOOD_CAND = 
LEAVE CHECK_THIS_CANDID 
4 END; 
4 
6 
4 'weh 
2 } tion depth. 
4 GOOD_CAND = .1; 
? GOOD"“DEFDEPTH = .DEFDEPTH; 
END; 
END; 
H Return the GOOD_CAND value. 
RETURN .GOOD_CAND; 
END; 
53 53 45 43 43 
42 4F 43 SF 45 


OFFC 00000 SCOPE_RULE_ COBOL: 
wOR 


5E 
5A 000F 4240 F 


OOF 
54 0c ae 
oat ‘ 
ois Be 
we 
53 4 


04 A44 


41 54 53 52 1A 00546 P.AEI: .ASCII <26>\RSTACCESS\<92>\SCOPE_RULE_COBOL\ 
4C 38 52 SF 45 0085s — 7 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


o $ ve R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
C2 098 SUBL £ 
4 0000 CLRL 6000 CAND 
movi #1000000, GOOD_DEF DEPTH 
10 1$: BRwW 5$ 
13 28: MOVL @CANDLSTCIJ, CANDBLK 
1 CLRL DATA_INDEX 
1A CLAL COBOCGBL_FLAG 
1 pov. . » DATAGUAL_FLAG 
3$: PUSHAQ (CANDBLK)(J) 
TSTL (SP)+ 
BEQL 
PUSHAQ (CANDBLK)(J) 
C MOVL a(SP)+, RSTPIR 
f PUSHAQ 4(CANDBLK)() 
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$2 


9E 04 BC 08 of 3 3 cHeZV #8, #8, @PATHNAME, a(SP)+ : : 
04 As F 0 Pte HAG 4 (CANDBLK) CJ] + 7565 ; 
9 ? F TSTL a(SP)+ : : 
0 ti BEQL ; $ 
06 =A 4 cLRL ATAQUAL FLAG + 7567, ; 
0 14 AS 9A 00046 4$ MOVZBL 20(RSTPTR), : 7569 ; 
g 1 4D BEQL ; : 
OA 9 af CMPB R0. #10 : 7570. : 
03 (1 2 BEQL 5 3 $ 
04 AE 04 4 CLRL  DATAQUAL_FLAG : 7572 | : 
OA 4 Ar re 7 5$ BLBS DATAQUAL - “FLAG, 6$ : 7578 ; 
5 B CMPB =soRO, #6 : 7579) : 
80 13 0005 BEQL «=ss1$ : ; 
OA 91 CMPB =SséRO, #10 : 7580) ; 
8 13 6 BEQL 3 3 
06 5 91 65 6$: cHPB RO, "6 ; 7589) ; 
5 33 8 MOVL NDEX : 7592) : 
03 15 A E1 BBC i "AUCRSTPIR 7$ ; 7593) : 
6E 1 00 MOVL 1, COBOLGBL FLAG : | ; 
: 06 INCL ; 7599, ; 
ad 1 RB t : 7556) : 
6448 7F PUSHAQ (CANDBLK) [DATA INDEX) : 7607. F 
53 95 bo MOVL a(SP)+ ; ; 
04 Ab42 7F PUSHAQ 4(CAN o6LK3E (3) : 7608 ; 
58 9E DO MOVL a(SP)+ EPTH 3 3 
SA B 01 CMPL Der DePtH,. GOOD. DEF DEPTH ; 7609 : 
A 16 BGTR 15$ : : 
52 6— €E BLBS § COBOLGBL_FLAG, 138 : 7620) : 
10 AC OD TSTL SCOP E : 7621. : 
4 1 BEQL 13$ 3 $ 
06 16 A3d 91 C @0(RSTPTR), #6 ; 7622, : 
4 if BNEQ $ : F 
57 53D MOVL RSTPT R, SYMSCOPE : 7629 | ; 
01 14 «Ad 91 CMPB ; (RSTPTR), #1 ; 7630 : 
04 13 BEQL $ 3 3 
57 10 A p mMOVL =o (RSTPTR) gy SYRSCOPE : 7632 : 
07 4 A? 91 C ‘ (SYMSCOP : 7634) ; 
04 1 BNEQ $ ; : 
7 19 A? D MOVL  16(SY YMSCOPE), SYMSCOPE : 7636. ; 
5 10 ac OD MOVL = SCOPE, : 7644 F 
7 3 : cHPL 5 PTR. STRSCOPE : 7645 | 
02 4 AS 9 CMPB é (SCPTR), #2 > 7647 | 
46 1 BEQL $ 3 
01 4 AS OO C é (SCPTR), #1 > 7651 
12 BNEQ $ : 
00000000" EF 9F PUSHAB P.AEI : 7653 
1 oD PUSHL #1 F 
00028362 8F ODD PUSHL ite ; 
000000006 99 ; F CALLS #3, LIBSSIGNA ; 
10 A p MOVL 164 SCPTR), SCPTR : 765 
4 BRB 1 > 7645 | 
SA 8 p1 CMPL DEF DEPTH, GOOD_DEF DEPTH : 766 
A 12 NEQ 3 
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4 02:4 AX-11 Bligs-32 V4.0-74 
382 96: +8: yy PERU. CRCTASTACCESS 03551 

CMPL G90D_CAND, al 

Q 

PUSHR FERRE ROD 

CALLS #3, CHECK_DUPLICATE 

MOVL G00 _ CAND 

MOVE GOOD. CAND 

mOVL DErDEPTA, GOOD D DEFDEPTH 

MOVL GOOD. eke.” RO’ 


v0 


3 
T 


Pr 


n 3 
-Sep- 7:48:17 - - 
122888713 d Peet Bee DEBUG. ERCSRS 


3 760° 769% } ROUTINE SCOPE RULE NORMAL (PATHNAME, NCANDS, CANDLST, ARRAY_FLAG) = : 
; 760 7696 1 ! FUNCTION $ 
3; 7608 7697 4 3 This routine selects the symbol from a specified bist of candidate sym- 3 
; 7609 7698 1! bols which best matches a spec fied gathnane. This routine assumes : 
; 7610 7699 1! nerees scope rules when doing so; in particular, it assumes that data : 
: 7611 7700 1: qualification must be complete (A.C is not accepted for A.B8.C) or is not ; 
; 761 7701 1! resent in the language. These rules suit languages Like Pascal and ; 
3 4 OF, £? § : ortran. 3 
; 7615 77 1: The List of candidate symbols is produced by DBGSSTA_GETSYMBOL, and each : 
; 761 70s 63 candidate is guaranteed to be in the current scope being searched. What : 
3; 761 77 $ 1! this routine must do is to determine which candidates have valid data : 
3; 7618 7707 1! gyet {tices ion. which candidate is defined at the lowest definition depth F 
3; 7619 7708 1! i.e., defined inner-most in the current scope), and whether that candi- F 
: 7620 7709 1: date is unique. The routine then returns one of three things: an indi- : 
3; 7621 7710 1! cation that no symbol was valid, an indication that the symbol is not é 
; te § 4g : unique, or an index pointing to the one selected candidate symbol. : 
3 7624 org 1 ! INPUTS ’ 
3; 7625 7714 «1! PATHNAME = Pointer to the pathname descriptor for the symbol name to : 
3 re $ aay, : } be looked up in the symbol table. : 
3 Kg : aa : NCANDS = The number of candidate symbols found by DBGSSTA_GETSYMBOL. . 
3; 7650 7719 +1! CANDLST = A vector of pointers to the ‘candidate blocks’’ for the candi- 3 
3; 7631 ore 1! date symbols found by DBGSSTA_GETSYMBOL. Each of these candi- : 
; 76 7721 1! dates is in the scope currently searched. The candidate block 3 
3 768 rise : pointers are found in CANDLSTC1] through CANDLSTC.NCANDS). : 
3; 76355 7724 «1! ARRAY_FLAG = If true, the symbol we are —— up was seen in a ; 
: 7636 7725 1! subscripted expression. This may be used to resolve : 
; ree? 77 $ 13 pees tole ambiguities in BASIC, where it is legal to : 
3; 76 77 1! ave two variables of the same name, one a scalar : 
3; 7639 7728 «1! and one an array. : 
7640 7729 1! 
3 7641 7730 1°! OUTPUTS 3 
3: 764 7731 #1! The CANDLST index for the candidate block which best matches the path- : 
3: 764 AAT 1! name is returned as the routine'’s value. If no candidate is 3 
3 7644 ie RB acceptable, zero is returned, and if more than one candidate é 
: : s acceptable e symbol is not unique), -1 is returned. 3 
7645 7734 (1 | i ble (th bol is not unique), -1 is returned 
 Fece wee} 
3 764 77 $ BEGIN 3 
F885 7339 p 
3; 7651 7740 PATHNAME: REF PTHSPATHNAME, ! Pointer to symbol pathname descriptor 3 
3; 765 7741 CANDLST: REF VECTORC,LONG); ! Pointer to candidate vector g 
Fee ok LABEL 
; 7655 7744 CHECK THIS CANDIDATE; ! Label of block we want to LEAVE : 
: Fee are LOCAL 
3; 765 reo CANDBLK: REF CAND_BLOCKVECTOR, ! Pointer to current ‘candidate block’ 3 
: 765 pres DEF DEPTH ' Definition depth of current candidate : 
3; 7660 774 DSTPTR: REF DSTSRECORD, ' Pointer fo symbol DST record : 
; 7661 7750 GOOD_CAND, ! CANDLST index of best candidate so far : 
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be-000 1 ~300n 138% 95: B33 DEBUG. SRC SSTacte $.8 397885. 9° 45) 
| 
| 7668 GOOD _DEF DEPTH, | Definition depth of GOOD. CAND symbol | 
3 766 J i pngex for CANDBLK vect 

664 RSTPTR: REF RSTSENTRY; i Pointer to current syaet RST entry 


Initially we do not have a good candidate. 


GOOD_CAND = 0; 
GOOD“DEFDEPTH = 1000000; 


$ 
SNe 
SAN NN 


! Loop over all the candidate blocks on the candidate list. This loop 
: searches for the best candidate symbol matching the pathname. 


INCR I FROM 1 TO .NCANDS DO 
BEGIN 


' Set a labelled block to check out the current candidate. We can 
rEAVE this block if we find that the candidate is not acceptable. 


CHECK THIS_CANDIDATE 
CANDBLK = .CANDLSTC.1); 


' Loop ever the candidate's up-scope chain--that is what the CANDBLK 
i vector gives us. Reject any candidate whose data qualification in 
the up-scope chain does not agree with that in the pathname. 

J = 0; 

WHILE, = CANDBLKC. -J, CAND_RSTPTR] NEQ 0 DO 


4 
7696 7785 RSTPTR = .CANDBLKC.J, CAND_RSTPTRI; 


' No item before a backslash and no item not explicitly given 
i in the Pathname Descriptor may be a Data Item or Type Compo- 
; nent. This ensures complete Yate qualification when present. 


IF (. cr ee « CAND edith bas gree rre., PATHCNT) , 


CAND. PINDEX 
(ZRSTPTRERST 1$8k EQL asi se 


AOR 
4g RSTPTRERSTSB- eats EQL RSTSK- “TYPCOMP) 
LEAVE CHECK_THIS_CANDIDATE; 
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No item immediately before the first dot (i.e., X im A\X or 
ARK -B) aey be a Type Component and, if there are record com- 
ponents, that item must be a Data item. Again, this ensures 
that data qualification complete. 


F CANDBLKE J CAND_P NDEX} EQ, -PATHNAME LPTHSB_ PATHCNT)) AND 
(i RSTPTR Rs {se KIRD RSI K TYPCOMP) 
( PATHNAME LPTHSB_ TOTCHT GTR  PATHNAMELPTHSB.. PATHCNT) AND 
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102 388-1 382 95:98:36 DEBUG. SRCSASTACCESS.09951 9°45) 
.RSTPTRCRSTSB_KIND] NEQ RSTSK_DATA)) 
LEAVE CHECK_THIS_CANDIDATE; 


! If this item is part of the data qualification, it must be a 
} Type Component. 


if (.CANDBLKC.J, CAND_PINDEX] GTR .PATHNAMECPTHSB_PATHCNT]) AND 
(CRSTPTRCRST$B_KIND) NEG RSTSK_TYPCOMP) 


LEAVE CHECK_THIS_CANDIDATE; 


Increment the CANDBLK index and loop up-scope. 
Jz. ¢ 1; 
END 


k up the definition depth from the last CANDBLK cell. Reject 
s candidate if we already have a candidate with a smaller def- 
tion depth (i.e., defined closer to the current scope). 
P 
E 


! Pic 
: is ¢ 

itio 

DEFMEPTH = .CANDBLKC.J, CAND_PINDEX]; 

IF .DEFDEPTH GTR .GOOD_DEFDEPTH THEN LEAVE CHECK_THIS_CANDIDATE; 

We have a good candidate here. If we wrest have another candi- 
date at the same definition depth, the symbol maybe is not unique. 
We call a routine which attempts to resolve the amiguity. If it 
resolves the ambiguity, then it returns the appropriate index. 

It returns -1 if the reference really is ambiguous. 


" ahaa EQL .GOOD_DEFDEPTH 


BEGIN 
IF .GOOD_CAND EQL -1 
THEN 


LEAVE CHECK THIS CANDIDAT 
GOOD_CAND = CHECK _DUPLICATE( 


LEAVE CHECK_THIS_CANDIDATE; 
END; 


F 
HE 


E; 
CANOLST, .I, 
GOOD_CAND, .ARRAY_FLAG); 


! We have a good candidate which is unique (so far) at this defini- 
tion depth. Set GOOD_CAND accordingly. 


GCOD_CAND = .1; 
GOOD“DEFDEPTH = .DEFDEPTH; 
END; ! End of the CHECK_THIS_CANDIDATE block 


' End of INCR loop over candidate List 
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yOue008 14-Sep-1984 95:98:37 DEBUG. SRC ASTACCESS. 035; 1 9° 48) 
; vy? r $3 ; Return the GOOD_CAND value. This may be -1, 0, or a true CANDLST index. : } 
; 777 7867 RETURN .GOOD_CAND; ‘ 
3; 777 7 r¢ ; 
; 7780 786 END; 3 5 
; 8 
; 8 
: 
O1FC 00000 SCOPE_RULE_NORMAL : ; 8 
-WORD Save R2,R3,R4,R5,R6,R7_RB 3: 7694 : 8 
50 04 9002 CLRL G00 CAND : 7759 ; 8 
56 000F4240 BF 00 000 MOVL #1000000, GOOD_DEFDEPTH : 7760 : 8 
4 ps 0008 CLRL : 7792 3 8 
0093 31 0000D BRW $ : | ; 8 
55 OC BC44 00 9019 1$: MOVL §§ @CANDLSTCIJ, CANDBLK : 7775 3 8 
3 d4 9001 CLRL J : 778 : 8 
654 F 00017 2$: PUSHAQ (CANDBLK)(JJ : 778 ; 8 
Ha b3 OO1A TSTL a(SP)+ : ; 8 
57 13 OO01C BEQL 7$ : ; 8 
6542 7F OOO1E PUSHAQ (CANDBLK)(JJ : 7785 : 8 
53 9 b0 0021 MOVL a(SP)+, RSTPTR : : 8 
04 A542 7F 00024 PUSHAQ 4(CANDBLK) (CU) : 7792 : 8 
51 9E D0 00028 MOVL af 3 3; 8 
51 06 BC 08 0 ED 99 8 CMP7V #8, #8, @PATHNAME, R1 : ; 8 
4 14 00031 BGTR 3$ ; 3 8 
1 D5 00033 TSTL R1 : 7793 : 8 
0c 12 00035 BNEQ 4$ : : 8 
06 14 A3 91 00037 3$: CMPB ZO(RSTPTR, #6 : 779% : 8 
66 13 000 BEQL $ ; : 8 
OA 14 ad 93 9003p CMPB gO(RSTPTR), #10 : 7795 : 8 
60 13 00041 BEQL $ 3 3; 8 
51 04 BC 08 08 i2 0043 4$ cMPZV #8, #8, @PATHNAME, R1 > 7805— 3 H 
OA 14 A 91 00048 CMPB gO(RSTPTR, #10 : 7806 : 8 
52 13 O004F BEQL $ : ; 8 
58 04 BC 9A 00051 MOVZBL @PATHNAME, R8& : 7807. ; 8 
58 06 BC 08 08 FD 0055 CMP2V #8, #8, @PATHNAME, RB ; : 8 
06 9038 BGEQ $ : : H 
06 14 A 9 9050 CHS O(RSTPTR), #6 : 7808 : 
51 06 eC 08 08 is 38 5$: CHPZV #8, #8, @PATHNAME, R1 : 7816 : ; 
OA 14 As 9 re CMPB ; (RSTPTR), #10 : 7817 : 
3 1 ¢f BNEQ $ : 3 
D 1 68: INCL > 7824 3 
Ae 1 7 BRB $ s 7 3 3 
04 A542 7F 75 7%: PUSHAQ 4(CANDBLK)(J) : 7832. : 
57 5 o9 MOVL a(SP)+, DEFDEPTH ; | 3 
56 D 7¢ CMPL EFDEPTH, GOOD_DEF DEPTH : 7833 : 
2 14 7F BGTR : 3 
A i 1 BNEQ RS ; 784 3 
FFFFFFEE 86 8F 39 p 3 CMPL GOOD_CAND, a1 > 784 : 
1 3 A BEQL ; 3 
10 ac dd C PUSHL ARRAY_FLAG : 7849 : 
50 DD F PUSHL GO0D_CAND 3 3 
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be ~$e0r18G¢ OB:4817  yayett liggcsz ve, 


54 DD PUSHL 1 
OC AC OD PUSHL CANDLST 

4 re CALLS #4, CHECK_DUPLICATE 

6 1 98 BRB 9° 

4 06 90 8 MOVL 

7 D B MOVL DErDErTR, 16000 -DEFDEPTH 
08 AC FI 90 99 ACBL ye PEs 
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ee 
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; i ¢ f 0 } ROUTINE SCOPE _RULE_PLI(PATHNAME, NCANDS, CANDLST) = 

: 77 7 i 1 § FUNCTION 

; 7785 7875 1! This routine selects the symbol from a specified i ise of candidate sym- 
3 77 7874 1! bols which best matches a specified pathname. This routine assumes 

s 77 7875 1! PL/I scope rules when cor so. This moons that enconatete data quali- 
: re f 6 : fication is accepted, and that uniqueness is determined by these rules: 
: 7790 7 18 ii (1) By definition, the “lowest definition depth” is the 

> 7791 7879 1/3 inner-most definition depth in the current scope at 

$ aa. f , } which at least one candidate symbol is declared. 

: 7794 7 ¢ ii (2) If onty one candidate symbol is defined at the lowest 

3; 7795 7 Hs 1! definition depth, then that is the unique symbol we 

: 378 tees 1 i en 

: 779 7 Bg 1 i (3) If more than one symbol is defined at the lowest defi- 

3; 77 7887 1! nition depth, but onty one of them has complete data 

: f : f 3 ' qualification, then that is the unique symbol we want. 

: 780 , 30 ; (4) Otherwise, the symbol is not unique. 

: 7804 7 3 1! The List of candidate symbols is produced by DBGSSTA_GETSYMBOL, and each 
3; 7805 7895 1! candidate is guaranteed to be in the current scope being searched. What 
3 ree 7894 1! this routine must do is to determine which candidates have valid data 

; 780 7895 1! qyel It icas ion. which candidate is defined at the lowest definition depth 
: 7808 7 38 1! i.e., defined inner-most in the current scope), and whether that candi- 
3; 7809 7897 1! date is unique. The routine then returns one of three things: an indi- 
3; 7810 7 38 1! cation that no symbol was valid, an indication that the symbol is not 

3 ret 443 ; : unique, or an index pointing to the one selected candidate symbol. 

: 781 7901 1! INPUTS 

3; 7814 308 7! PATHNAME = Pointer to the pathname descriptor for the symbol name to 

3 rt? ast : be looked up in the symbol table. 

: reir 7905 ! NCANDS = The number of candidate symbols found by DBGSSTA_GETSYMBOL. 

: 7819 F309 1 i CANDLST = A vector of pointers to the ‘candidate blocks’’ for the candi- 
; 7820 7908 1! date symbols found by DBGSSTA_GETSYMBOL. Each of these candi- 
3; 7821 7 1! dates is in the scope currently searched. The candidate block 
3 A ¢ pie ; pointers are found in CANDLSTC1) through CANDLSTC.NCANDS). 

: 7824 7912 1 | OUTPUTS 

3; 7825 791 1! The CANDLST index for the candidate block which best matches the path- 

; 78 7914 #1! name is returned as the routine's value. If no candidate is 
3:7 7915 1! acceptable, zero is returned, and if more than one candidate 

3 ’ ; ad : : is acceptable (the symbol is not unique), -1 is returned. 

: 7 7918 17 

3; 7831 791 BEGIN 

37 § 7920 

3:7 7921 P 

Be 79 § PATHNAME: REF PTHSPATHNAME, ' Pointer to symbol pathname descriptor 
3 4 5 3 Z CANDLST: REF VECTORC,LONG); ' Pointer to candidate vector 

: 7 7925 LABEL 

me 7926 CHECK _THIS_ CANDIDATE; ! Label of block we want to LEAVE 
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' vector gives us. Reject any candidate whose data qualification in 
the up-scope chain does not agree with that in the pathname. 


DATAQUAL FLAG = TRUE; 


Mw 
23 
= 


; 7839 7 

; 7840 8 8 LOCAL %s - 
; 78461 6 CANDBLK: REF CAND _BLOCKVECTOR, ! Pointer to current ‘candidate block 
3 r ¢ COMPLETE_FLAG, ! Set to TRUE if current candidate's 

3 7 Pe ! data qualification is complete 
3 7844 7 DATAQUAL __FLAG, ' Set to ey when we are in the data 
; 7845 7 ‘ qual ication part of a name 

3 7 $ 7 DEFDEPTH ! Definition depth of current candidate 
: 7 7935 DSTPTR: REF DSTSRECORD, i Pointer fo symbol DST record 

3; 7848 79 CAND, ! CANDLST index of best candidate so far 
: f .] 6 GOOD_COMPLETE_FLAG, souptese-aeee" “es : cosien flag for 
: ' z mbo 

: e 3} 7389 6000 _DEFDEPTH, detinition de of E000. cap symbol 
3 ' Index for vector 

3 f § ao} RSTPTR: REF RSTSENTRY; ! Pointer to current symbol RST entry 
3; 7855 reg 

37 $ 7944 

3 2 4 of Initially we do not have a good candidate. 

: reso Foc? GOOD_CAND = 0; 

3 7 7948 GOOD_DEFDEPTH = 1000000; 

3; 7861 7949 GOOD_COMPLETE_FLAG = FALSE; 

Be Be 

3 ree? asi} ' Loop over all the candidate blocks on the candidate list. This loop 

; ree? att, } searches for the best candidate symbol matching the pathname. 

; 7a? epee INCR I FROM 1 TO .NCANDS DO 

3: 7 79 S BEGIN 

3 A 44 795 

3; 7870 7958 0 

3; 7871 7959 ' Set up a labelled block to check out the current candidate. We can 
5 . y 7360 } LEAVE this block if we find that the candidate is not acceptable. 

3; 7874 796 CHECK_THIS_CANDIDATE: 

3; 7875 7963 4 BEGIN 

: % 7964 4 CANDBLK = .CANDLSTC.1); 

3; 787 7965 4 COMPLETE_FLAG = TRUE; 

3; 7878 roe 4 

3; 7879 7967 & 

3 4 796 ? ! Loop over the candidate's up-sc~pe chain--that is what the CANDBLK 
3 4 

3 4 

3 4 

3 4 

$ 6 


SSN 


797 = 0; 
97 WHILE .CANDBLKC.J, CAND_RSTPTR) NEQ 0 00 
797 RSTPTR = .CANDBLKC.J, CAND_RSTPTRI; 
+9 
91 5979 ! Clear DATAQUAL_FLAG if we have left the data qualification 
8 } part of the name. 
94 79 ; iF (.CANDBLKC.J, CAND PINDEX) LSS .PATHNAMECPTHSB_PATHCNT)) AND 
95 79 ({CANDBLKE.J. CAND“PINDEX) NEQ 6) 
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7 7984 THEN 
: 7985 DATAQUAL_FLAG = FALSE; “ 
7 79 
7 79 ! After we leave the data qualification part goin “scope, we 
jest je $ do not accept Data itens or Type tenpenents’ th The none. ; 
; 908 7991 if (NOT .DATAQUAL_FLAG) AND 
; 7904 799 (.RSTPTR Re teencined ah RSTSK_DATA OR 
; re8e feat eRSTPTRLRSTSB_KIND) EQL RSTSK_TYPCOMP) 
; st 7995 LEAVE CHECK_THIS_CANDIDATE; 
if 735 
; 7910 7998 ! The last thing before the dot when there are things after the 
6 ay 4445 dot must be a Data Item or Type Component. 
7918 001 if (.CANDBLKC,J CAND PINDEX] EQL .PATHNAMECPTHSB_PATHCNT)) AND 
7914 00¢ (;PATHNAMECPTH$B_TOTCNT) GTR .PATHNAMECPTHSB_PATHCNTJ) AND 
7915 00 (.RSTPTRCRSTSB_KIND] NEQ RSTS$K_DATA) AND 
fea | Ope - zone on RSTSB_KINDJ NEQ RSTSK_TYPCOMP) 
7918 AVE CHECK_THIS_ CANDIDATE; 
a4 | B07 LEAVE 4 i IDATE 
009 After the dot, everything must be Type Components. 


iF (.CANDBLKE.J, CAND_PINDEX] GTR .PATHNAMECPTHSB_PATHCNT]) AND 
(;RSTPTRCRST$B_KIND) NEQ RSTSK_TYPCOMP) 


N 
LEAVE CHECK_THIS_CANDIDATE; 
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! If we are in the data qualification part and PINDEX is zero, 

: we have an RST entry on the up-scope chain whose name is not. 
: Hepes in the Pathname Descriptor. This means that data quali- 
ication is not complete for this variable. 
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F _jDATAQUAL_FLAG AND (.CANDBLKC.J, CAND_PINDEX] EQL 0) 
COMPLETE_FLAG = FALSE; 
79 
at 44 Increment the CANDBLK index and loop up=scope. 
7941 J= J; 
reg END; 


k up the definition depth from the Last CANDBLK cell. Reject 
s candidate if we already have a candidate with a smaller def- 
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tion depth (i.e., defined closer to the current scope). 


. C 

i thi 

i ini 

1 

DEFDEPTH = .CANDBLKC.J, CAND PINDEX); 

IF .DEFDEPTH GTR .GOOD.DEFDEPTH THEN LEAVE CHECK_THIS_CANDIDATE; 
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DEBUG. SRC IRSTACCES 
have another candi- 


! We have a good condi¢e e here. If we alread 
n 


: Fate at the same de 


tion depth, the symbol maybe is not uni 


only one of the two candies es has complete data qualification, 


i we accept that one cand 


date as being the one we want (so far) 


i Otherwise, we call ® routine which attempts to resolve the amiguity. If it 
u 


» then it return 
' It returns -1 if ; 


' 
' 
' 
' 
' 
; resolves the amb ? 
' 
IF (.DEFDEPTH EQL_ .GOOD_DEFDEPTH) AND 


the appropriate index. 
he reference really is amiguous. 


5 LOLS TE FLAS OR NOT .COMPLETE_FLAG) 


BEGIN 
IF (COMPLETE FLAG OR NOT .GOOD_COMPLETE_FLAG) 


BEGIN 
GOOD_CAND EQL -1 


IF . 

THEN 

LEAVE CHECK THIS CANDID 
GOOD CAN 

IF .GOOD_CAND EQL~.1 

THEN 


ATE; 


IDATE 
D = CHECK_DUPLICATE(.CANDLST, .1, .GOOD_CAND); 


GOOD_COMPLETE_FLAG = .COMPLETE_FLAG; 


END; 
LEAVE CHECK THIS_CANDIDATE; 


! We have a good candidate which is unique (so far) at this defini- 


tion depth. Set GOOD_CAND accordingly. 


GOOD_CAND = .J; 
GOOD"DEFDEPTH = .DEFDEPTH;: 
GOOD-COMPLETE_FLAG = .COMPLETE_FLAG; 


END; ! End of the CHECK_THIS_CANDIDATE block 
END; ! End of INCR loop over candidate List 


Return the GOOD_CAND value. This may be -1, 0, or a true CANDLST index. 


RETURN .GOOD_CAND; 
END; 


OFFC 00000 SCOPE _RULE _PLI: 
WORD 


0 04 2 CLRL 

58 000F 4240 a MOVL 
?7 OD CLRL 

4 ef ) CLRL 

008 1 F i$: BRW 

55 Oc BC44 D0 12 2%: MOVL 


Save R2,R3,R4,R5,R6,R7,RB,R9,RI0,R11 


sah 
#1000000, GOOD DEFDEPTH 
GOOD_COMPLETE_FLAG 
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@CANDLSTCIJ, CANDBLK 
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#1, COMPLETE _FLAG 
a, DATAQUAL —FLAG 


(cANDBLK) CUI 
SP 


(SP)+ 

CANDBLK) (JJ 
(SP)+, RSTPTR 
(CANDBLK) CJ] 
fe R1 

4$ 
DATAQUAL_FLAG 


ATAQUAL FLAG, 5$ 
(RSTPTR), #6 


OCRSTPTR), #10 


Ae #8, @PATHNAME, R1 


SPATHNANE 


R11 
, #8, SPATHNAME., R11 


OCRSTPTR), #6 
OCRSTPTR), #10 


+f #8, @PATHNAME, R1 


20(RSTPTR), #10 
DATAQUAL FLAG, 8$ 


8$ 
COMPLETE_FLAG 


$ 

4 (CANDBLK) EJ} 

a(SP)+, DEFDEPT 

Det Dern, EEN DEF DEPTH 
12$ 

GOOD_ COMPLETE 48 
COMPCETE_FLAG; 
COMPLETE-FLAG, 1 
600D -f 


G00. CAND 


Cano CHE Ck mth Senate 
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#8. @PATHNAME, R1 
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3; Routine Size: 210 bytes, Routine Base: DBGSCODE + 3204 


& 
RSTACCESS 1b-se <1 748:17 AX-11 Bligs-32 V4.0-74 Pa 49 
vOe-000 1 3002138 93:18:36 DEBUG. SRCIASTACCESS.039; 1 4 7) 
ROUTINE SETCONTEXT_ERROR_HANDLER (SIGARG, MECHARG, ENBLARG) = | 


FUNCTION 

This routine is the error handler for the DBGSSTA_SETCONTEXT routine. 
It handles Access Violations which eccyr during the following of stack 
call frames. Since such access violations are not normally caused by 
errors in Debug but rather by errors in the user program (e.g., by 

¢ speeree FP), we give a special message for this kind of access 

v 


The message says that there is a bad frame pointer or call frame in 


SS 
VP uwTy 


: 1 
3 1! 
3 1! 
3 1! 
3 1! 
5 1! 
3 1! 
3 1! 
3 1! 
3 1! 
: 36 : ; the stack. 
3 03 1 ! INPUTS 
‘ aI 84 : SIGARG = The signal argument vector. 
3 O18 191 : ; MECHARG = The mechanism argument vector. 
; oot : § : ENBLARG - The enable argument vector (not used here). 
; 8017 19 1 § ouTPuTS 
3; 8018 105 3! For the SS$_ACCVIO error, the DBGS_BADFRAME informational message is 
> 8019 106 1! signaled, and the stack {s unwound to leave DBGSSTA_SETCONTEXT. 
: 80 44 ' For all other errors, this routine just resignals. 
: 80 109 1— 
: 8008 110 BEGIN | 
: Bo5s 112 
; a $ 118 SIGARG: REF VECTORC,LONG); ! Pointer to the signal argument vector 
3 8028 115 
: Hi 9 138 If this is anything other than an access violation, just resignal it. 
3 80 118 IF .SIGARGC1) NEQ SS$_ACCVIO THEN RETURN SS$_RESIGNAL; 
; 80 120 
3 , : : 1 : It is an access violation. Signal the informational and unwind. 
; 80 158 SIGNAL (DBG$_BADFRAME); 
; 80 124 SETUNWIND (); 
3; 80 125 RETURN 0; 
3 te 1 § 
3; 8040 1 END; 
0000 00000 SETCONTEXT_ERROR_HANDLER: 
-WORD Save nothing : 3085 
50 oe af D MOVL IGARG, 3; 811 
0c & A CMPL 4(RO), #1 : 
6 A BEQL } 3 
500918 BFE 90006 MOVZWL #2328, RO : 
00028693 8F ODD ig 1$: PUSHL #165523 > 8123 
000000006 00 1 FB 1 CALLS #1, LIBSSIGNAL 3 
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3; Routine Size: 43 bytes, Routine Base: 
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H 3 } } ROUTINE STACK_MACHINE(STK_CODE_PTR, RESULT_PTR, FRAMEPTR): NOVALUE = 

: 80464 130 1 | FUNCTION 

; 80465 1 1! This foyt tne oveluates cone tag code from a Materialization Spec 
; pe$ 1 § 1! in a OST e Spec. oto" as aes & pointer to the Stack Machine 
$ 1 1! “routine” Ne v4. the ° Ae ahs o be evaluated. That “‘routine’’ is then 
3 8 1 1! evaluated on a stack built in a temporary memory block. re return. 
; 8049 j) ef the address of the computed value in the temporary memory block is 

; epee 1 : returned as the result of the evaluation. 

: " ; i : 1 ' INPUTS 

; 03 1 1! STK_CODE ir - rhe address of. the first byte of "Stack Machine’ code. 
; 4 140 1! Evaluation of t “code’’ starts at orhis address and con- 

$ be? 19) ! tinues until eke ‘8 sree STK STOP command is reached. 

: B08? 128 1! RESULT_PTR = The address of a longword location to receive the result 
3 HF 5 see : : pointer. 

: 8060 5148 1! FRAMEPTR = The address of a longword location to receive the frame 

3; 8061 8147 1! pointer associated with the result location. 
BNE LE ounurg 

3 8064 8150 1! RESULT_PTR = A pointer to the result of evaluating the stack machine 
; 8065 o12) ; routine is returned to RESULT_PTR. 

; 806 HE 1! FRAMEPTR = The Frame Pointer (FP) value of the register set used in 

3; 8068 8154 1! a se machine computations is returned to FRAMEPTR if 

; 8069 8155 1! register was used in the computes fone. af no register 
3 ooo 5128 : ue was used, zero is returned to FRAMEP 

; 4 3128 : : No value is returned by routine STACK_MACHINE. 

> 8074 8160 & 

; 8076 Bie BEGIN 

: 807 816 

; 8078 8164 RESULT_PTR: REF vec toatl. ' Pointer to result location 

; te 16 FRAMEPTR: REF VECTOR(1); ' Pointer to frame pointer location 

> 8081 169 LITERAL 

; aoe 189 STACK_SIZE = 256; 

> 8084 170 CAL 

; 8085 Ee FALL REST. } Rogule of embedded routine call 

3; 80 ive STACR_PTR ' Pointer to the top of stack. 

3 808 17 OVERFLOW Point i Pointer to stack upper Limit. 

; 8088 174 UNDERFLOO_P: ' Pointer to stack lower Limit. 

3 rst 2 INSTRUC : “Ret Mt cron C,BYTE):; ' Pointer to the current stack instruct 
: 1 179 MACRO 

3 § 178 TOP_CELL = (.STACK_PTR) &% 

: 094 4 180 pci cel . Stic ACK=PTR +4) 3. PTR (1) *®ZUPVAL; 

: 8095 m 8181 Y IF .STACK_PTR LSSA”.OVERFLOW_POINT — 

3 B98 4 81 ¢ THEN R , 

; aad : SDBG_ERROR(*RSTACCESS\STACK_MACHINE 10°) 2%, 


F 


QB 
ad 
Ww 


<2 


ocococececocecpcecscecocpcececscece FG 


3 


BBSBsBszss 
Oe a a a a a a ed ad ed 


POI a8 8 at 8 wt wd mt = = SH QHOO OOOO OOO OOOO OOOOOOW@Mwomc 


ee 
=O OOO WE WN 9 OD NOME WIN OOD NA VE WN 0 ODNOAM EWN OOD NOU EWR OOONOUW 


— >  —  — _ _-s _b s —) s  _ - 


MNRORRoNNUN) 4 2 2 
SRIF ALUN —COBNOUR MY“ SODNAUR UM OODR UR AROS 


PAA AAA. A. AALAIROPUNPUNOPUNIND 


Be Se Se Se Se Se Ge Se Se Fe Se Se Se Fe Se Ge Fe Ge Se Ge Se Ge Ge Fe Se Ge Se ee Fe Se Se Ge Se Ge Se Se Se Se Se oe Se G+ Fe Se Se Se Se Se Se Oe Oe Se Oe Se Oe oe e« 


0 09.00.00 09.00 09 00 C0 OD 0d 00 0 60 0 OD 09 0 OD G9 09 GD 00 0D 09 09 C0 GD 00 GD GD 00 CD CD 0D CD G0 0D CD 


a a a a a a at cs a = 


MUMMIES LLL LLLEE 
MEW 0 OS NOU Ew Oo 


or 


5 
iE-sep-1964 02:48:17 YAN-1) Qlige-3 


POP(I) = STACK_PTR = .STACK_PTR * (1) *ZUPVAL; 
IF_.STACK_PTR GTRA” .UNDERFLOW_POINT 


HEN 
SDBG_ERROR(RSTACCESS\STACK_MACHINE 20°) %, 
PUSH_BYTE(I) = STACK_PTR = o 
USTACK PTR = 
CCL) + CIE (1) MOD _RUPVAL NEQ.0 
1H THEN 3U N ZUPVAL = (CI) MOD XUPVAL} 
IF _<STACK PTR LSSA LOVERFLOW, POINT 
SDBG_ERROR(*RSTACCESS\STACK_MACHINE 30°) %, 
CHECK_CELLS(1) =IF .UNDERFLOW_POINT = .STACK_PTR LSS (1) *%UPVAL 


SDBG_ERROR('RSTACCESS\STACK_MACHINE 40°) %; 
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Initialize the stack and the pointer to the instruction stream. 
OVERFLOW POINT = DBGSGET_TEMPMEM(STACK_SIZE); 
UNDERFLO@_POINT = .OVERFCOW POINT + GeSTACK_SIZE; 


STACK PTR™= .UNDERFLOW 
INSTROC = .STK_CODE PIR: 


Initialize FRAMEPTR to zero--this will be changed if registers are used. 
FRAMEPTRIO) = 0; 
! Evaluate the Stack Machine ‘‘routine’’ by looping through its instructions 


until we reach the Stop command. 
WHILE .INSTRUCCO) NEQ DST$K_STK_STOP DO 
BEGIN 


' Do a CASE on the current Stack Machine Op Code and execute each 
; op code as appropriate. 


CASE, INSTRUCCOI FROM DSTSK_STK_LOW TO DSTSK_STK_HIGH OF 


} Push the value of a register on the stack. 


{osT$k ~$k ~pusHn. 
STK PUSHR] : 
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TOP CELL = ,OPERAND(O); 
JnsTRUC = .INSTRUC + 2; 


COSTSK STK PUSHIMW) : 
LOCAL OPERAND : REF VECTOR [.WORD, SIGNED); 


OPERAND = INsTRUCETI 
TOP_CELL = .OPERAND 0}: 
INSTRUC = , INSTRUC + 3: 


COSTSK_STK_PUSHIML): 
boca OPERAND : REF VECTOR C,LONG); 


OPERAND’ = INSTRUCET; 
TOP_CELL = .OPERAND 03: 
INSTRUC = , INSTRUC + 5: 


! PUSH IMMEDIATE VARIABLE’ The byte following the opcode is 

: interpreted as an une sence byte count. 
} A block of data, immediately followin 
the count byte, is PUSHed on the stack. 


COSTSK_STK_PUSHIM_VAR): 


PUSH_BYTE(.INSTRUC(1)); 
CHSMOVE( INSTRUC Ii. insteuct2} TOP_CELL ); 
INSTRUC = INSTRUCEC2) + .INSTRUCL1); 


! PUSH IMMEDIATE UNSIGNED 1 or 2 bytes oe tig this opcode 
} BYTE OR WORD ore gare eusentes to 52 bits and PUSHed 
! on the stac 


' 
COSTSK_STK_PUSHIMBU): 
BEGIN 
PUSH(1); 
TOP_CELL = instruct}: 
INSTRUC = .INSTRUC + 2; 
END; 
COST$K_STK_PUSHIMWU): 
LOCAL OPERAND : REF VECTOR C,WORD); 
OPERAND = INSTRUCT}: 


TOP_CELL = .OPERAND } 
jus TRus = . INSTRUC ¢ 5; 
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PUSH INDIRECT The top stack cell is popped and 1, 2, or 4 
BYTE WORD OR LONG rs bet at the address given by the.p opped 
ack cell are sign extended to 52 bits and 


pushed on the stack. 


oumunm 


! 
' 
' 
i 
! 
{osT$x -yebeanae- 
LOCAL | OPERAND REF VECTOR C,BYTE, SIGNED); 


OPERAND = .TOP CELL; 
To ceLL = “iOpERANOLO}: 
INSTRUC = . INSTRUC + 


oO 


Wn —O0OOonNe 


SSSELSES 


CDSTSK_STK_PUSHINW): 
BEGIN 


LOCAL OPERAND : REF VECTOR C,WORD,SIGNED); 
OPERAND = .TOP. 
TOP_CELL =" .OPERANDEO); 

INSTRUC = . INSTRUC + 1: 


ANNO 


COSTS$K_STK_PUSHINL): 
BEGIN 


LOCAL OPERAND: REF VECTORC, LONG); 
OPERAND = .TOP_CELL: 

TOP CELL = ; OPERANDLO?; 

jus taut = . INSTRUC + 1: 


USH INDIRECT UNSIGNED The top stack cell is popped and 1 or 2 
YTE OR D bytes at the address given by “ popped 
stack cell are zero extended to 32 b 

and pushed on the stack. 


S 


' 
t 
' 
4, 
sal ~*~ eae 

LOCAL OPERAND : REF VECTOR (BYTE; 
OPERAND = 


OP. 
TOP CELL = ;OPERANDEO}: 
INSTRUC = . INSTRUC ¢ 


com pbmmangey 
LOCAL OPERAND : REF VECTOR C.WORD]; 
ERAND = 


10 
TOP_CELL = *-openanbcoy: 
INsTRUC = INSTRUC ¢ 


' ADD The top two stack cells are added and 
. replaced by a single cell containing 
é their sum 


' 
CDSTSK_STK_ADD): 
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RSTACCESS 16-Sep-1984 02:48:17 AX-11 Bliss-32 V4.0-74 Pa 56 R 
yOu. 008 1o=$08=1 382 eet ey DEBUG eACTASTACCESS O$os1 nal 8) v0 
3 7 13.4 BEGIN 
3 : 14 & CHECK CELLS): 
: 12 ? SECONG_C LL = .TOP_CELL + .SECOND_CELL; 
: 8331 i$ 4 INSTRUC = .INSTRUC ¢ 1; 
; § 18 END; 
; 0 
3 5 1 ' SUBTRACT The second stack cell is subtracted from 
; 4 ¢ ! the first stack cell. Both are popped. 
: 4 ? } Their difference is PUSHed. 
; 5 CosT$k_STK_SuB): 
3 0 § 4 BEGIN 
3 1 4 4 CHECK_CELLS(2); 
3 ¢ 3 4 SECONB_CELL = .TOP_CELL = .SECOND_CELL; 
3 4 POP(1); 
: 8344 0 4 INSTRUC = .INSTRUC + 1; 
; 8 ‘ END; 
; 4 
; : 8 Be ' MULTIPLY The top two stack cells are multiplied 
: : 9 5 ! and replaced by a single cell containing 
: 20 : } their product 
; 3 438 5 CDsTSK STK MULTI: 
> 8354 440 4 CHECK CELLS(2); 
3 8355 461 é SECOND. CELL = (,TOP_CELL)*®(.SECOND_CELL); 
; 33 rk 4 INSTRUC = .INSTRUC + 1; 
: 8359 ces oh 
; hd 
3 1 Bec ! DIVIDE The top stack cell is divided by the 
3 cee ! secondstack cell. Both are popped. 
: rts Their qoutient is PUSHed. 
Py H G 
; 451 CDSTSK_STK_DIV): 
FH 26 4 BEGIN 
3 535 4 CHECK_CELLS(2); 
: $28 ? g (SECOND_CELL) EQL 0 
; , ¢ 4 $DBG_ERROR(RSTACCESS\STACK_MACHINE 50°) 
; 458 4 ELSE 
; 4 BEGIN 
3 60 SECOND_CELL = (.TOP_CELL)/(.SECOND_CELL); 
; 61 POP(1); 
3 66 INSTRUC = . INSTRUC ¢ 1; 
3 6 END 
3 rt: END; 
; $$ ' LOGICAL SHIFT The top stack colt is interpreted as 
3 o8 ‘ the number of bit positions to shift the 
3 46 ; second stack cell. Both are popped. 


5 
EAH BEN MUL OEE, d|NB 


: : 0 ; : The shifted second cell is PUSHed. 

: 7 toSTSK_STK_LSH): 

3 8 4 BEGIN ~ 

3 74 & CHECK_CELLS(2); 

; 479 4 Tr ABS( -TOP_CELL ) GEQ ZBPVAL 

; § BEGIN 

3 35 rh POP(1); 

; 839 7 TOP_CELL = 0; 

; 3e » JusTaut = . INSTRUC ¢ 1; 

; 96 é 4 ELSE 

3; 839 BEG! 

; 38 4 IF .TOP_CELL GTR O 

: +4 5 THEN 

3 4 : Number of bit positions is positive, shift to the left. 
; 08 89 6 BEGIN 

: Re +s ? SECOND CELL = (.SECOND_CELL)*«.TOP_CELL); 

i 8406 % 8 INSTRUC = .INSTRUC + 1; 

: 8408 94 s 

3; 8409 95 a 

: 8410 38 ! Number of bit positions is negative, shift to the right. 
3; 8411 9 ! This is a logical, rather than an arithmetic shift, so 
; i 98 ' we'll have to do some magic, rather than use the BLISS 
; ‘7 344 shift operator. 

> 8415 501 6 BEGIN 

3 Bi1¢ 5 ; 6 LOCAL POSITION, SIZ; 

3 841 503 6 POSITION = =. TOP CELL; 

; 18 504 6 SIZ = ZBPVAL - .POSITION; 

3 1 505 6 SECOND_CELL = . (SECOND_CELL)<. POSITION, -51Z>; 

3 0 208 6 POP(1); 

3 : 307 InstRut = ,INSTRUC + 1; 

; 509 END 

2 ve 

; 51 

3 $ 318 ' ROTATE The top stack cell is interpreted as the 

: 14 ! number of bit positions to rotate the 

3 515 ' second stack cell. Both gre, popped. 

: 218 } The rotated second cell is PUSHed. 

; 318 {DST$K_STK_ROT) 

: 19 4 BEGIN 

3 520 4 LOCAL BITS_TO_ROT; 

3 521 4 CHECK_CELLS (23; 

; 5 4 4 BITS TO ROT = .TOP se MOD ZBPVAL; 

; 525 4 IF .B1TS_TO_ROT GTR 

: & ; 3 ? THEN 

: 40 526 4 ! Number of bit positions is positive, rotate to the left. 


H § 
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3; 8441 7 4 é 

; 8446 3 BEGIN 

3 4 LOCAL OPERAND, TARG POS, SRC_POS, SIZ; 

: Bah 9 OPERAND = .(SECOND_CELLS; 

; 4 § : ve the low order bits of the source to the high order 
> 844 ! bits of the target and the high order bits of the source to 
: r ¢ } the low order bits of the target. 

: ? § Bw amano nae = orm 

3 § 4 ' source : ; : 

3 ' women noenonmocaersaesroereocce a 

> 8454 40 i !.BITS_TO_ROT! 

: 5 4) ! H H 

; 246 : P eo ene 

: 544 i ee - 

; 35 He ! : ; 

ee Sc Seach eed 

; : 28 target " : : : 

3 ; Re Se oe ee Ge oe en ee Se en ot 

3; 8464 550 

; 8465 551 TARG_POS = .BITS_TO_ROT; 

; 66 33 src_Pos = 0; 

; 6 22 S1Z = ZBPVAL = TARG_POS; 

: $8 32 : (SECOND_CELL)<.TARG_POS, .SIZ> = .OPERAND<.SRC_POS, .SIZ>; 
; % 336 ! Move the high order bits of the source to the low order 
; a 22 bits of the target. 

> 847 225 TARG_POS = 0; 

3 8474 560 SRC_POS = ZBPVAL = .BITS_TO_ROT; 

3 8475 561 S12"= .BITS TO_ROT; 

: 8 266 (SECOND_CELC)<7TARG_POS, -SIZ> = .OPERAND<.SRC_POS, .SI2Z>; 
; 8 266 } Adjust the stack pointer, 

; 366 POP(1); 

; : sea INsTRUt = , INSTRUC + 1; 

; 5 

; 8685 i d oe 

; 276 2 Number of bit positions is negative, rotate to the right. 
; 574 BEGIN 

; 75 LOCAL OPERAND, TARG_POS, SRC_POS, SIZ; 

; 30 2 OPERAND = .SECOND_CELL; 

; 3 4 ! Move the high order bits of the source to the low order 
: 849 7 ' bits of the target and the low order bits of the source to 
: 3 i the high order bits of the target. 

4 i 

: 38 § i Rd Oe meee ewe eS we ce eS 0. 
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(SECOND_ CELLD<. iahg sposs Ror iz> = .OPERAND<.SRC_POS, .SIZ>; 


! Move the high order bits of the source to the low order 


; bits of the target. 


: ! source 

| . ovartacTo.poT: 
. . i ‘ . Ba So Bm See we 
B505 8591 
7 59 i \'/ Vs 
. i $4 ‘ = ¢ a eae ame ne 
. 36 ge depend seseo as eeneszasee > 
8511 859 TARG_POS = ZBPVAL = .BITS_TO_ROT; | 
a1 4598 SRC_POS. = | 
B51 | 
R514 Be 
; 1? 
iH 

3 


iARG, PO = 0; 
SRC “pos = .BITS TO_ROT; 

= Z6PVAL -".B1TS_T 
(SECOND_ CELL) <. TARG POS, .SI is 2 = OPERANDS. SRC_POS, .SIZ>; 


ABS BB BBB MB BBE. UB BDV DDD PUPP DV DV SU SPUDV SVS SV SVSVS VS ISVSUSVS ISVS 


R554 ¥ 

. BAL 

| § $609 

R525 R611 

5 $ pels } Adjust the stack pointer, 

8 R614 POP(1); 

5 8615 INstRUC = . INSTRUC + 1; 

B53) 5o18 . 

: § pols END; 

8620 
B535 621 COPY The top stack cell is PUSHed 
5 CDSTSK_STK_COP): | 
624 BEGIN 

625 PUSH(1); 

8540 : $ TOP CELL = .SECOND_CELL; 

pees : INSTRUC = .INSTRUC™¢ 1; 

: 2 f 8 END; 

44 630 

545 631 EXCHANGE The top two stack cells are exchanged 

4] é ¢ CDSTSK_STK_EXCH): 

$548 ” BEGIN 

B54 535 LOCAL WORK _CELL 

# 9 CELL = .TOP CELL; 

: TOP_CTELL = SECOND CELL; 3 
85 § . SEC ECON CELL = .WORR ceul; 

B85 é INSTRUC = * INSTRUC 71; 

8554 640 END: 


esis 
5 


Be Se Se Ge Se Se Se Be Se Se Se Se Ge Se Se Se Se Se Se Se Se Ge Se Ge Ge Ge Se Se Ge HH Ge Ge Ge Se Se Ss Se Se Se Se Ge Se Se Se Se SF Ss Se Ss Se Se Se Se Ge Se Sees 


SLSEAREN AS Sano 


VFSRENSLES 


EPP MAAAA RNA ANP ANIDNMNDIAR DNAS 


POPPA AEN BY BB IN BB BB TDDB BB BF MAAN NMA A AMA MAMA MAMN AMG 


5 
tb-Sem-1984 O2:48:17  YAKE1T Bigg 


STORE BYTE WORD OR LONG 
The byte following this operand is 
interpreted as a signed (for consistency 
with sonething. gee Grove) byte offset 
into the stack. The low order byte, word, 
or longword of the top stack cell js 
cop e¢ into the byte, word or longword 

at this location: 


address of the second stack ceil 
the specified byte offset. 


(Keep in mind that the address of the 
third stack cell is the address of the 
second stack cell plus four.) 

The stack is popped. 


$12; 
T = SECOND_CELL + .INSTRUCC1); 
(CASE, = INSTRUCCO] FROM DSTSK_STK_STO_B8 TO DSTSK_STK_STO_L OF 


DSTSK_STK_ST0_8): 1; 
DSTSK“STK"STO-W): 2: 
DSTSK“STKSTO“LJ: 4: 


TES); 
CHSMOVE(.S1Z, TOP_CELL, . TARGET); 
INSTRUC = .INSTRUC ¢ 2; 

END; 


' POP The top stack cell is removed from the 
: stack. 


’ 
CDSTSK_STK_POP): 
BEGIN 


POP(1); 
INSTRUC = . INSTRUC ¢ 1; 
END: 


' RTNCALL Call a Conp*por-euppt tee routine to 

: compute a value to be put on the stack. 
: We assume that the routine address is 

: already on top of the stack. That ad- 
: gress S popped and the returned value 
s pushed on the stack. 

c 


DSTSK_STK_RTNCALL): 
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BEG! 
LOCA — 
hunk 
Ten rite fs “top CELL; ! Save the routine address, 
" ! Pop off the thunk address 
VALSPEE ROUT oCALL (CALL RESULT, Temp thunk eter FALSE, TRUE, : 
ACR_PTR, .UNDERFCOW_POINT-.STACK_PfR); 
+ H(1); ! Push for the call result 
earste = .CALL RESULT 
AMEPTR(O] = .DBG GSREG_VALUESC133; 
Insthuc = “INSTRU ; 
! RTN_NOFP Call a yy ey lied routine to | 
; compute a value @ put on the stack. 


is pushed on the. Stockh. Same as RTNCALL 
except no FP is passed in to thunk. 


J 

i 

] 

CDSTSK_STK_RTN_NOFP): | 
BECIN | 


L i 
Temp_thunk | 
thunk edge "top CELL; ! Save the routine address, 


T 
CAL “RESULT | 
! Pop off the thunk address | 


+t: PEPPER Oe ttt + Rs POOP Re 


We assume that the routine address is 
| sig F on top of the stack. That ad- 
dress is 

(a quadword 


; ); 
9 VALSPEC ROUT o CALL Com RESULT, Be thunk = mal FALSE, FALSE, 
0 »STACRPTR, .UNDERFCOW_ POINT-.STACK_PfR); 
1 PUSH(1); ! Push for the call result | 
§ TOP_CELL = “CALL RESULT; 

FRAMEPTR(O) =DEGEREG.VALUESC133; 
4 INSTRUC = 7 INSTRU + 1; 
: END; 
8 ! RTNCALL_ALT Call a conpi ler-sup Lied routine to 
compute a value to be put on the stack. 
1 


4d 


popped and the returned value 
is pushed on the stack. 


PRecesasacacacsa 


[DSTSK_STK RTNCALL, ALT): 
BEGIN 
LOCAL 


cRe-Resucr’s : VécTORE 4): | 

6 r = ,TOP_CELL; ' Save the routine address, | 
= 4 ' 
> 

CALL-RESULT ¢ = 

CALL qeesulr s 


POP é 
VAL SPEE -ROUT_CALL(CALL RESULT, Temp, thunk add | TRUE 
PUSH( 4 ); oSTA ACR R, * UNDERF COW _POINT=. STACK_PTR) 


' Pop off the thunk address 
we. 


yo? oY oF oF ot ot oF oF ot ot ot ot le or rrr or a ve ew oY oY oY oy oY oY at ot yt >t 
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; CHSMOVE ( eer ht CALL_R sit) CHSPTR( .STACK_PTR ) ); 


= i Mn j= DBGSREG_ VALUE 


$$7633;1 Page 26¢ 


FRAMEPTRCO 


PUSH_OUTER_REC Push the start address of the outer most 
record eeser bed by iy heel | pointes 
to by BBGSGL_CURRENT_PRIMARY. Originall 
mplenented Tor use By Langue es which allow 
Self- PL/I, ADA) 


PAA MII 
WN —OODNOW 


referential records, 


' 

i 

i 

i 

i 

i 

! Self-referential records are those which 
: contain fields or structures whose actual 
allocated pengeh depends on some preceding 
i 
i 
c 


NANANNSSISSISSY 


value with he record. Thus, the address 
of any fields following the field or structure 
is not known at compile time, and therefore must 

be calculated at run-time. 


DSTSK_STK_PUSH_OUTER_REC): 


PROPRIO NURI WII II III I BB BIA III III BS BB BAI III II AA 


; H(1); 

; 9 TOP_CELL = DBGSGET_OUTER_REC_ADDRESS(.DBGSGL_CURRENT_PRIMARY) ; 

3; 869 INSTRUC = . INSTRUC + 1; 

3 END; 

3 Bs96 

; 3 ! PUSH_INNER_REC Push the start address of the inner most 

3 5e08 ! record, described by ay eh ge | pointed 

3 8699 i to by OBGSGL_CURRENT PRIMARY. riginall 

: 87 ' iaplenented Tor use By Langua es which allow 

3 ? 1 Self-referential records, (PL71, ADA) 

3; 87 CDSTSK_STK_PUSH_INNER_RECJ: 

3; 87 BEGIN 
; 8705 PUSH(1); 
3; 87 TOP_CELL = DBGSGET_INNER_REC_ADDRESS( .DBGSGL_CURRENT_PRIMARY) ; 

3 4 JnstRuC = .INSTRUC™¢ 1; 

3; 87 ‘ 

; 8710 

3 A Any other op-code is an error. Signal an internal bug. 

; ig CINRANGE, OUTRANGE): 

3 At SDBG_ERROR(*RSTACCESS\STACK_MACHINE = Invalid stack machine opcode. Bad DST"); 
; 716 TES; 

; 718 END; ! End of WHILE loop over instructions 

: 8720 

3 g 1 : Fill in the result address and return. 

: 87 z RESULT_PTRCO) = TOP_CELL; 

: g $ RETURN; 


nSsie EATS NBSHESA, | WALLLELUNTECHEOTMS,, Peat 


; 8726 8812 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 


43 41 56 $3 45 43 43 41 54 53 52 JA 00561 P.AEJ: ASCII <26>\RSTACCESS\<92>\STACK MACHINE 10\ 
43 41 56 33 4 43 41 54 $3 2 JA h P.AEK: ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 10\ ; 
43 41 56 $3 45 C3 G8 ci $4 $8 85 TR 0080) PLAEL: ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 10\ : 
43 41 56 rf rt rs ‘i a, 88 85 FR es P.AEM: ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 10\ 
43 41 54 $3 4 i ¢ ‘i $4 $8 85 TR O08eD P.AEN: .ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 30\ ; 
43 41 56 9 83 tk ok ea Sl 5 Tk He P.AEO: .ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 10\ : 
43 41 56 9 83 tk a i ‘i rs a 603 P.AEP: .ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 10\ , 
43 41 56 3 83 i “8 21 $4 $8 8 TR Oosie P.AEO: ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 40\ : : 
43 41 56 a es gs es ds) $89 P.AER: ASCII <26>\RSTACCESS\<92>STACK_MACHINE 20\ 
43 41 56 a es gs es ds) Dose P.AES: ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 40\ 
43 41 56 3 $3 28 03 cf ty gh $8 8b TR bbeee P.AET: ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 20\ : 
43 41 56 as rt rs rs rs es a P.AEU: .ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 40\ ; 
43 41 56 3 $3 08 63 8 oF gt 88 8b TR lek p.aev: wascai <26>\RSTACCESS\<92>\STACK_MACHINE 20\ : 
43 41 56 3 83 0 fe i a7 $4 $8 25 TR O0ekG pneu: wascri <26>\RSTACCESS\<92>\STACK_MACHINE 40\ 
43 41 56 5 a rh a ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 5O\ : 
43 41 54 res i or) 06k P.AEY: .ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 20\ 
43 41 56 gf gs 08 03 ck or se 88 8b TR OTR? ener: wascas <26>\RSTACCESS\<92>\STACK_MACHINE 40\ 
43 41 56 § 83 tk i a7 $4 $8 85 GR Sopse paras wasca <26>\RSTACCESS\<92>\STACK_MACHINE 20\ : 
43 41 54 a ers 5 TR O07 P.AFB: .ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 20\ 
43 41 56 8 33 tk oF et és $4 $8 85 TR O0re8 p.arc:  .ascdI <26>\RSTACCESS\<92>\STACK_MACHINE 20\ 
43 41 56 Sr res as a eS <26>\RSTACCESS\<92>\STACK_MACHINE 40\ 
43 41 56 $8608 c8 i $, $8 25 $8 90768 p.are: .ascas <26>\RSTACCESS\<92>\STACK_MACHINE 20\ : 
43 41 56 $308 03 8 CF 84 $8 85 TR bones p.are: .ascai <26>\RSTACCESS\<92>\STACK_MACHINE 20\ 
43 41 56 $308 G3 C8 tf st 8 b TR Sorte p.arc: ascii <26>\RSTACCESS\<92>\STACK_MACHINE 10\ 
43 41 56 4 ‘ ‘ ‘i st 33 2 ia DO7ED P.AFH: ASCII <26>\RSTACCESS\<92>\STACK MACHINE 20\ ; 
43 41 56 $3 05 23 8 ci $4 $8 85 TR 60800 P.art: ASCH <26>\RSTACCESS\<92>\STACK_MACHINE 20\ : 


N 5 
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43 41 56 2 45 46 49 48 43 41 28 F 4B 13 3 
§ ? ¢ ¢ 2 ‘i 73 ? ¢ i p ee P.AFJ: ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 20\ : 
43 41 54 . ? ¢ Q 2 t i? $3 e is 23 P.AFK: .ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 10\ ; 
43 41 54 § ? ¢ Q Q t} 73 53 ¢ ls 3 P.AFL: .ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 20\ : 
43 41 54 : ? 2 ‘3 2 ¢} 73 $3 e is 4 P.AFM: ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 10\ F 
43 41 54 § : ; 2 $3 2 3 i $3 e i 38 P.AFN: ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 20\ 3 
43 41 54 c ? 2 ‘3 : ¢} f $3 ¢ Ht ‘6 P.AFO: .ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 10\ ; 
43 41 54 . : ? Q $3 Q é 77 $3 2 1 3 ci P.AFP: .ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 10\ 3 
43 41 54 3 . 8 ? : $3 2 rh f $3 e ie ere P.AFQ: .ASCII <26>\RSTACCESS\<92>\STACK_MACHINE 10\ : 
$3 rh 4 3 3 53 i te $3 i 3 i $3 e 3 uh P.AFR: .ASCII \?RSTACCESS\<92>\STACK_MACHINE = Invalid\ 
st stk tReet vetoes meton reese. en 


~PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 spon ae 


W Save R2,R3,R4,R5,R6,R7,RB,RO,RIO,R11 : 8128. 

18 ¢2 0000 §uB 4, SP F | 

7E 0100 8F %3¢ 0000 MOVZWL #256, =(SP) : 8207 

000000006 90 gi FS 000A CALLS #1, DBGSGET_TEMPMEM : 

A 0 0011 MOVL RO, OVERFLO@ POINT : 

59 0400 CA : 0014 MOVAB 1024(R10), UNDERFLOW_POINT : 8208 

5 59 00 00019 MOVL §-UNDERFLOW. POINT, STACK_PTR : 8209 

04 AC 00 0001C MOVL STK_CODE PTR, INSTRUC : 8210. 

0c Bf D4 000 4 CLRL af RAMEPTR : 8215) 

91 00 1$: CMPB = C INSTRUC), #23 : 8221. 
3 1 0 6 BNEQ : 
063A ; 00 BRW $ ; 

2 0 67 BF 00028 gs: CASEB (INSTRUC), #0, #44 > 8228 
F : ~WORD -3$,- $ 

0063 006 006 06 OOoF 3$ $ 

an? 3 ss $8 i: : 
$83 B08 8 oe 47 35: $;- ; 
oH $280 35 336 pet 3-33. ; 
238 1F ibe if 2 $-3$;- : 
D 2a ¢ 67 $-3$.- : 
6C 449 a2 é GF $-3$,- ; 
04C0 0479 47 4 0 7 $-3$.- : 
0606 05D¢ 579 460 7F $-3$;- ; 
524 0087 $- $.- ; 
$-3$,- : 
$-3$,- 5 
$-5$,- : 
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00000000° 
00028362 


56 
oA 


000000006 00 


6 
TACCESS 1b-se 1986 02:48:17: VAX=11 BLiss-32 v4.0-74 p 
vo4= aR aes Tan oe YM SPR Og et pet eC eee 786 


50 01 09 0 D7 9$: MOVL #1, REGISTR ; 
44 1 DA BRB 4 : 
50 2 b0 DC 10$: MOVL #2 REGISTR : 
F OF BRB : 
50 3 b0 O€1 11$:  MOVL #3, REGISTR : 
A 1 £4 BRB : 
50 4 0 E6 12$: MOVL #4, REGISTR : 
50 3 b ane 138: BOVE #5, REGISTR : 
50 6 DO OOOFO 148: MOVL #6, REGISTR : 
3 11 OOF BRB : 
50 DO OOOF5 15$: MOVL 4&7, REGISTR : 
36 11 OOOF BRB : 
50 DO OOOFA 16$:  MOVL #8, REGISTR : 
4 11 000FD BRB 2 : 
50 9 DO OOOFF 17$: ##MOVL #9, REGISTR : 
i¢ 11 0102 BRB 4$ : 
50 OA 00 001046 18$: MOVL #10, REGISTR : 
17 11 00107 BRB 24$ : 
50 08 DO 00109 19s MOVL #11, REGISTR : 
12 11 9019¢ BRB 24$ : 
50 OC DO O010E 208 MOVL #12, REGISTR : 
QOD 11 Bott BRB Pe : 
50 0D DO 00113 21$ MOVL #13, REGISTR : 
08 11 00116 BRB 24$ : 
50 OF DO 00118 22$:  MOVL #14, REGISTR ; 
03 11 00118 BRB 24$ : 
50 OF DO 99110 3$:  MOVL #15, REGISTR : 
0000000060040 D3 0120 24$: =‘ TSTL DBGEREG_VECTORCREGISTRI : 8276 
OC 135 00127 BEQL 25$ 3 
66 0000000060046 DO 00129 MOVL  § DBGSREG_VALUESCREGISTRJ, (STACK_PTR) + 8279. 
57 D6 00131 INCL NSTRUC : 8280 | 
§ 11 00133 BRB 6$ : 8276. 
0000v CF 0 FB 00135 25$: CALLS #0, VALSPEC_SCOPE_ERROR : 8 84 | 
0C BC 000000006 Q DO 0013A 26$:  MOVL 6$REG_VALOES+52, aFRAMEPTR + 8286 | 
11 00142 BRB a F 8228 | 
56 94 C2 00144 278 SUBL2 #4, STACK_PTR > 8297 | 
5A : D1 00147 CMPL STACK_PTR> OVERFLOW_POINT : | 
15 1€ OO14A BGEQU 28$ ; | 
00000000" EF 9F O14¢ PUSHAB P.AEK ; | 
1 DD 001 PUSHL : 
00028362 8F DD 00154 PUSHL #164706 ; 
000000006 99 3 FB 1 A CALLS #3, LIBSSIGNAL : 
01 =A 4 161 288: MOVAB 1(R7), OPERAND : 8298 
B46 $0 ? 0165 CVTBL (OPERAND), (STACK_PTR) > 8299 | 
O37E 31 00168 BRW : 8300 | 
56 94 C3 0168 29$: SUBL2 #4, STACK_PTR : 8306. 
SA 6 D 166 CMPL stAck PIR: OVERF LOW_POINT : | 
15 1€ 001 BGEGU 30$ : 
00000000" EF 9F 0017 PUSHAB P.AEL F 
1 DD 0017 PUSHL @# ; 
00028362 8F DD 178 PUSHL 164706 ; 
000000006 99 ; FB 001 CALLS #3, LIBSSIGNAL : | 
0 01 A 188 30$:  MOVAB  1(R7), OPERAND ; Hy 07 | 
66 60 18C CVTWL CQPERAND) , (STACK_PTR) ; 8308. 
008 018F BRW 4 : 8309 
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000000006 
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000000006 


000000006 


fi & 
1 
00000000' : 
00028362 ; 
a 
Bic. B 
28 01 , 
ad wae’ Ee 
0 
rar 8 
i 
50 2 
56 0 
5A 72 
1 
00000000" i 
00028362 F 
00 93 
A? 8 
57 02 cage? 
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> 
Io = 
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00000000" EF 
00028362 8F 
66 01 


00000000" . 
9 00028362 ; 
i 01 N? 
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FDD4 
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5$: 
6$: st sy 


37$: 

AB 
8$: BRB 
9$: 


Senne 02:48:17 


AX-11 OL geese ve 0286 
DEBUG. SRC IJRSTACCESS.832;1 


#4, STACK_PTR 
STACK PTR: OVERFLOW_POINT 


P-AEM 
#164706 

#3, LIBSSIGNAL 

1(R7), OPERAND 
COPERAND) . (STACK_PTR) 
#5, INSTRUC 


(INSTRUC), RB 


e R8 #0, -(SP) 
#4, (SP)+, RO, RO 
35$ 
RO, #4, RO 
36§ 

RO 
R8, RO 
RO, § 


* STACK_PTR 
TACK PTR? OVERFLOW POINT 
P.AEN 

#164706 

#3, L 1BSS1GNAL 

RB, OC INSTRUC), (STACK_PTR) 
2(RB)CINSTRUCJ, INSTRUC 

#4, STACK_PTR 

STACK_PTR> OVERFLOW_POINT 
40$ 

P -AEO 

#164706 

#3, LIBSSIGNAL 

TC INSTRUC), (STACK_PTR) 

#4, STACK_PTR 

STACK PIR: OVERFLOW_POINT 
P.AEP 


L 

R7), OPERAN 
ERAND), (STACK_PTR) 
INSTRUC 


CK_PTR), OPERAND 
RAND), (STACK_PTR) 


A 
it 

ACK_PTR), OPERAND 
ERAND), (STACK_PTR) 


ACK_PTR), OPERAND 


P 7 
9° (28) 


PeSe Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Se Ge Ge Se Se Se Ge Se Se Se Se Fe Se Se Fe Se Se Se Se Be Fe Fe Se Fe Fe Se Ge Se Se Se Fe Se Ge Be Ge Fe Se Se Se Se Se 
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s2 


66 60 p 6 MOVL — (STACK_PTR) : 8381 : 
BRB $ : 8382 3 
50 3 p 48S: HOV (STACK_PTR), OPERAND : 394 : 
66 6 9A A mov BL {OPERARD) . (STACK_PTR) : 395 ; 
50 66 00 F 49%: move (STACK_PTR), OPERAND : 408 ; 
66 60 3¢ MOVZWL isc5" RAND), (STACK_PTR) : 840 ; 
0368 37 75 50$: BRW 106 + 8404 3 
28 08 48 . 78 51$: MOVAB 8(R6) 3: 8414 3 
59 0 7¢ CMPL UNDERFLOW_POINT RO : | ; 
15 18 O027F BGEO 2$ : ; 
00000000" EF 9F j PUSHAB P.AEQ ; : 
1 OD PUSHL #1 : ; 
00028362 8F ODD 9 PUSHL #16670 : : 
000000006 00 3 FB F CALLS #3, LIBSSIGNAL ; : 
96 ¢ 52$: ADDL (STA ACK_PTR)+, (STACK : gas ; 
D1 00299 CMPL STAC K_PTR, UNDERFLOW- POINT + 8416) : 
07 1B 0029C BLEQU 0$ 3 $ 
00000000' FF 9F 00 PUSHAB P.AER : : 
C 11 002A BRB 57$ ; : 
50 08 Ag 9E 002A6 53$:  MOVAB 8(R6), RO + 8427 : 
50 59 01 OO2AA CMPL UNDERF LOW POINT, RO : ; 
15 18 002AD BGEG 4$ ; : 
00000000" EF 9F OO2AF PUSHAB P.AES 3 : 
1 0D 00285 PUSHL ; : 
00028362 8F DD 00287 PUSHL 4706 : : 
000000006 00 03 Fe 02B8D CALL SIGNAL ; : 
66 86 06 Ab C3 002C4 54$: SUBL Haute PTR), (STACK_PTR)+, (STACK_PTR) > 8428. : 
59 56 D1 002C¢9 CMPL Sos K_PTR, UNDERFLOW-POINT + 8429. : 
A? 18 O002CC BLEQU 0$ 3 3 
00000000' cf 9F OO2CE PUSHAB P.AET : ; 
9 11 00204 BRB 35 : : 
50 08 Ab i: 0206 55$:  MOVAB 8 (R6), RO + 8440 : 
50 59 D 0 DA CMPL UNDERF LOW POINT, RO ; | F 
15 18 002DD BGEO 6$ : ; 
00000000" EF 9F OO2DF PUSHAB P.AEU ; 3 
1 0D ES PUSHL F 
00028362 8F DD O0ZE PUS : 
000000006 00 3 FB OO2ED CALL SIGNAL ; | 
$6 6 C4 O0O2F4 56%: MULL A tie ies (STACK_PTR) > 8441 
6 D1 002F7 CMPL STACK_PTR, UNDERFLOW-POINT > 8442) 
48 1B OO2FA BLEQU 2s F | 
00000000" EF 9F OOF PUSHAB P.AEV : 
48 11 578: BRB 3 : 
50 08 Ag 4: 8$:  MOVAB 8(R6), RO + 8453 
5 p CMPL UNDERFLOW_POINT, RO : 
15 18 BGEO 9$ : 
00000000' EF 9F PUSHAB P.AEW : 
1 0d 0031 PUSHL #i ; 
00028362 8F DD 0031 PUSHL #164706 ; 
000000006 00 3 F 1 CALLS #3, LIBSSIGNAL ; 
04 Ab p 59$ st 4 (STACK PTR) + 8454 
00000000' EF 9F SHAB P.AEX > 8456 
1 0D D 608: USHL @# : 
00028362 8F ODD F PUSHL #164706 : 
000000006 00 3 FB 5 CALLS #3, LIBSSIGNAL : 


F 6 
RSTACCESS 16-Sep-1 :48:17 AX-11 Bliss-32 V4.0-74 Page 269 
¥Oe-000 10-398-1 382 93748:36 DEBUG. SRCIRSTACCESS B39; 1 9° 48) 
FCES 31 i BRw 1$ | : 
66 86 06 a6 C fF 61$:  DIVL3 4(STACK_PTR), (STACK_PTR)+, (STACK_PTR) ; 8460 
; bi 0084 CMPL STACK_PTR, UNDERFLOW-POINT : 8461 
B 00347 628 BLEGU 68S : 
00000000" fF 9F PUSHAB PAEY : 
11 3$ BRB is : 
50 08 Ab 9 $ MOVAB 8(R6), RO + 8474 
5 CMPL UNDERFLOW POINT, RO : 
15 18 BGEO 5$ : 
00000000" EF 9F PUSHAB P.AEZ : 
1 00 PUSHL #7 : 
00028362 8F DD PUSH #164706 ; 
000000006 90 3 F CALLS #3, LIBSSIGNAL : 
p 6 65$ movL (Stack PTR), RO ; 8475 
5 C MNEGL RO, R ; 
36 bj 77 668: CMPL ROS a2 : 
, 56 4 8 ADDL2 #4, STACK_PTR : 8478 
9 $ D1 CMPL  § STACK_PTR> UNDERFLOW_POINT : 
15 18 BLEGU 67$ ; 
00000000" EF 9F PUSHAB P.AFA : ; 
1 0D PUSHL # ; ; 
00028362 F OD PUSHL #164706 3 3 
000000006 00 3 FB CALLS #3, LIBSSIGNAL ; | ; 
66 ps 67$: CLRL  (SfACK_PTR) > 8479. ; 
o2c2 31 68$:  BRW : 8475 ; 
66 p 698: TSTL (STACK PTR) > 8484 ; 
Ab 03 Ab $ 7 ASHL, {STACK PTR} * 3(STACK_PTR), 3(STACK_PTR)  : 8490 ; 
56 C ADDL2 #3, STACK_ > 8491. ; 
59 6 pi CMPL §STACK_PTR> UNDERFLOW_POINT : | ; 
éB 18 BLEGU 68S ; ; 
00000000" EF 9F PUS P.AFB ; 
7 11 BRB 7i$ ; | 
51 6 of 70$:  MNEGL (STACK_PTR)+, POSITION : 8503 
50 20 1 ¢ SUBL3 POSITION, #32, SIZ ¢ 8506 
66 0 1 €F EXT2V POSITION, SIZ, (STACK_PTR), (STACK_PTR) : 8595 
59 $ D1 CMPL STACK_PTR, UNDERFLOW_POINT : 8506 | 
d2 18 BLEQU 68$ ; 
00000000' Hi OF PUSHAB P.AFC ; | : 
Dp 11 71$: BRB 74$ ; 
50 08 A 72$:  MOVAB 8(R6), RO : 8521 : 
0 3 p cHPL UNDERFLOW_POINT, RO ; 
00000000" EF 9F PUSHAB P.AFD ; ; 
1 Do PUSHL # ; F 
00028362 8F 0D PUSHL #164706 ; ; 
000000006 00 3 FB CALLS #3, LIBSSIGNAL ; ; 
99 6 1 7A 738: EMUL a (STACK_PTR), #0, -(SP) ; 8522 : 
F 0 78 EDIV. #32, (SP)+> BITS_TO_ROT, BITS_TO_ROT ; : 
4 06 Ab 9 MOV 4(STACK_PTR), R4 ; 8530 
53 0 C SUBL3 BITS_TOTROT, #32, R3 ; 380 
8 gt 2} Sele . 
58 9 Dd MOVL (R4), OPERAND 3 8330 
6€ 0D MOVL  BITS{TO_ROT, TARG_POS ; 8551 


nsIACcESS iSseoct9pe 09:46: 


@ 
oo 
kas 
a 
oe 

3 
< 
ad 


55 D4 004 CLRL 
1 €0 (A ve 400 VAB 
1 C +95 
52 ry 1 EF 14 XTZV 
1 6€ FO 19 NSV 
D4 1 CLRL 
5 4 4 MOVL 
1 D poy 
50 3 1 EF 00426 EXTZv 
1 E 0 Fe 4 INSV 
8 4 ¢ ADDL2 
$i a 
00000000" gf 9F 004 PUS 
. 3 74$: BRB 
28 4 4 440 75$: MOVL 
} ) 44 MOVL 
D4 0044 CLRL 
1 2 dO Ree MOVL 
52 5B 1 EF 0044 EXTZV 
51 8 FO 0045 INSV 
D4 004 CLRL 
55 oe 04 MOVL 
2} Dd 4 SA MOVL 
52 58 1 EF 0045 EXTZV 
51 28 re 46 INSV 
6 4 CO 0046 ADDL2 
59 § D1 0046A CMPL 
18 Reee BLEQU 
00000000" EF 3 m4 PUSHAB 
0085 31 004 4 BRW 
56 4 C2 ot 778: SUBL2 
5A g Di 00478 CMPL 
15 1€ bee BGEQU 
00000000" EF 9F 004 PUSHAB 
1 0D 004 PUSHL 
00028362 F OD 004 PUSHL 
000000006 00 3 fe 4 CALLS 
66 04 A6 D 95 78$: MOVL 
71 «11 99 BRB 
50 66 D 98 79% MOVL 
66 04 A6 D MOVL 
04 A6 5 9 MOVL 
64 $08: BRB 
2 iH A? 9A 1$: MOVZBL 
1 4 Ades 9E AC VAB 
0¢ s 8F 0048 CASEB 
00 0485 82$: ~ WORD 


Vv AX-11 Bliss $-32 Vv 
6 DEBUG. SRC SsTacte 
C_POS 
TARG. POS-32, $12 
sac “POS, $1Z, OPEPAND, R2 
ang_P POS, SIZ, (R4) 


“ROT, S12 
SRC_POS; $12, OPERAND 
RO, TARG_POS, SIZ, ‘fi 
TAck _PTR> UNDERFLOW_POINT 
Pare 

OPERAND 
++ ARE G_POS 

T $12 
“Pos; "St. OPERAND 
“TARG_POS, S12, MO, Re 
BITS-TO_ROT, SRC_POS 

$127 


R 
SRC_POS, SIZ, OPERAND 
6 Pos: Siz, 3 es 


TAck _PTR> UNDERFLOW_POINT 
P. Arr 
4, STACK_PTR 
STAck PIR: OVERFLOW_POINT 
P.AFG 
’ 
6 

LIBSSIGNAL 
4(STACK_PTR), (STACK_PTR) 
(STACK PTR), WORK_CELL 


(ST TACR PTRS CSTRCK. b TR) 
_CECL, 4¢STACK_PTR) 


RO 
ACK_PTR], TARGET 
), 936, #2 


ACK_PTR), (TARGET) 
“PTR 


p-198e 18:18:26 EoeeuG. SRcSastacteSs .039;1 


sls" 


~— ae 
he 
ww 
a2o 


59 56 pt ¢ cmp TACK_PTR, UNDERFLOW_POINT 
B 0040 LEQuU 338 ” 7 
00000000° f 4 bs PUSHA PAF 
00028362 8F DD 0040 PUSHL #164706 
000000006 F ia CALLS #3, LIBSSIGNAL 
§ £9 87$:  ADDL2 #2, INSTRUC 
FB EC BRW 1 
56 4 CO F 88$: ADDL2 #4, STACK_PTR 
§ D1 O04F CMPL STACK PTR: UNDERF LOW_POINT 
15 18 004 BLEGU 90S 
00000000" EF 9F O04F PUSHAB P.AFI 
1 DD 004FD 89S PUSHL 
00028362 8F DD OO4FF PUSHL #164706 
000000006 00 = 3 Fe a sen CALLS , LIBSSIGNAL 
52 86 D0 fF 91$:  MOVL (STACK_PTR)+, TEMP_THUNK_ADDR 
04 AE D4 1 CLRL CALL_RESULT 
5g 39 D1 1 CMPL SIACk PIR. UNDERF LOW_POINT 
15 18 0051 BLEGQU 92$ 
00000000" EF 9F O0S1A SHAB P.AFJ 
1 Dd 005 PUSHL 
00028362 8F 0D 005 PUSHL #164706 
000000006 3 F 3 CALLS #3, LIBSSIGNAL 
7E 6 C F 92$:  SUBL3  STACK_PTR, UNDERFLOW_POINT, -<SP) 
6 DD 005 PUSHL STACK=PTR 
01 DD 005 PUSHL @ 
§ D4 005 CLRL = = (SP) 
5 pp 0539 PUSHL_ TEMP_THUNK_ADDR 
18 AE 9F 005 PUSHAB CALLRESULT 
0000v CF 6 FB 005 ; CALLS #6, VALSPEC_ROUT_CALL 
& 4 C 9 4 SUBL2 #4, STACK_PT 
A $ D 46 CMPL STACK PTR: OVERFLOW_POINT 
57 1€ 0054 BGEGU 96$ 
00000000' EF 9F 00548 PUSHAB P.AFK 
40 11 00551 BRB 95$ 
52 86 D0 00553 93$:  MOVL (STACK_PTR)+, TEMP_THUNK_ADDR 
04 AE D4 2 3 CLRL CALL_RESULT 
59 56 D1 CMPL STACR_PTR, UNDERF LOW_POINT 
15 18 99 C BLEGU 94$ 
00000000" EF 9F E PUSHAB P.AFL 
1 DD 00564 PUSHL 
00028362 8F DD 00566 PUSHL #164706 
000000006 3 Fe $ CALLS #3, LIBSSIGNAL 
7E 6c 948: SUBL3 STACK_PTR, UNDERFLOW_POINT, -(SP) 
& BD 7 PUSHL STACKPTR 
§ C 00579 CLRO.  =(SP 
5 bb 78 PUSHL TEMP_THUNK_ADDR 
18 AE 9F 0057 PUSHAB CALL RESULT 
0000v CF F CALLS a6, QALSPEC_ROUT_CALL 
6  £ SUBL2 #4, STACK_PTR 
A : p CMPL STAck PIR: OVERFLOW_POINT 
iS 1€ BGEQU 96$ 
00000000" EF 9F PUSHAB P.AFM 
1 DD 95$: PUSHL @#@ 
00028362 BF DD PUSHL #164706 
000000006 00 3 FB 00598 CALLS #3, LIBSSIGNAL 
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<2 


3; Routine Size: 


1642 bytes, 


Routine Base: 


DBGSCODE + 3301 


66 04 ag 5 96$: BOVE cA LRESULT, (STACK_PTR) : : 
52 97$:  MOVL  (STACK_PTR)+, TEMP_THUNK_ADDR ; : 
08 AE 7C CLRO CALL_RESULT : ; 
A ‘ CLRQ CALL“RESULT+8 ; ; 
59 3 ? CMPL TACR_PTR, UNDERFLOW_POINT : ; 
: 8 BLEGU 98S : ; 
00000000" EF 9F PUSHAB P.AFN : : 
1 DD PUSHL #1 : : 
00028362 BF ODD PUSHL #164706 : : 
000000006 Fe CALL § #3, LIBSSIGNAL ; ; 
: L K_PTR, UN LOW_POINT, (SP) : : 
7E ¢ 98$ SUB STACK_PTR, UNDERFLOW_POINT 
oD PUSHL STACK=PTR : F 
1 OD PUSHL : ; 
2 DD PUSHL TEMP_THUNK_AD : ; 
10 (AE OOF PUSHAB CALL“RESULT : : 
0000v CF 06 F CALLS #6, VALSPEC_ROUT_CALL ; ; 
6 10 ¢ SUBL2 #16, STACK. : : 
A 36 D CMPL Stack PTR, OVERFLOW_POINT : ; 
iS iE BGEGU 99S : : 
00000000" EF 9F PUSHAB P.AFO F ; 
1 OD PUSHL = #i : : 
00028362 8F OD PUSHL #164706 : : 
.- ee 10 58 998: MOVES #78, "tare RESULT, (STACK PTR 
0C BC 000000006 bo 1008: MOVL DBGSREG_VALUES*52, aFRAMEPTR : : 
56 4 C3 101$:  SUBL2 #4, STACK_PTR : : 
A ¢ D CMPL STACK PTR: OVERFLOW_POINT : : 
15 1€ BGEGU 102$ : : 
00000000" EF 9F PUSHAB P.AFP F : 
00028362 BF bp PUSHE : : 
000000006 ; FB CALLS #3, LIBSSIGNAL : ; 
000000006 DD 102$:  PUSHL DBGSGL_CURRENT PRIMARY F : 
C76A CF i re CALLS #1, DBGSGET_OUTER_REC_ADDRESS : : 
56 4 C2 103$:  SUBL2 #4, STACK_PTR : : 
A $ D CMPL STACK PIR: OVERFLOW_POINT : : 
iS iE BGEGU 104$ : : 
00000000" EF 9F PUSHAB P.AFQ ; : 
1 OD PUSHL # ; : 
00028362 F 0D PUSHL 9164706 3 3 
000000006 FB CALLS #3, LIBSSIGNAL : : 
000000006 DD 104$: PUSHL paésc. CURRENT PRIMARY : : 
C733 CF FB CALLS #1, DBGSGET_INRER_REC_ADDRESS ; : 
9 D 105$: MOVL RO. (STACK_PTR) ; : 
06 106$: INCL INSTRUC : ; 
08 BC "5 4 107$: move STACK_PTR, @RESULT_PTR : : 


6 
RSTACCESS tb-se =| :48:17 Ax-11 Bliss-32 v4.0-74 
you-000 aah s 7a ott SM PRR OS Tt Peet ae 
ROUTINE VALSPEC_ERROR_HANDLER(SIGARG, MECHARG, ENBLARG) = 


FUNCTION 

This routine is the error handler for the DOGSSTA. VAL SPEC routine. It 
handles Access Violations which qccur during the evaluation of DST Value 
pecs. Since such access violations are not normally caused by errors 

n De but rather by errors in the user program fe. gee by clopsered 
registers), we give a special message for this kind of access violation. 
The message says that the error occurred in the address computation for 
some symbol and gives ghe syapot name. The symbol name comes from the 
SYMID Last passed to DBGSSTA_SETCONTEXT. 


a ut 4 2 


OSONAVNE WN OO OONA YL FUN "OOOO Ww 


‘C69 Cd Op CS Op OS CO OO CD 
~~~ 
Ooo 
wa 
F555 6 6 ort r4r4 4993993939399 
OOO NO NEW 0 ODO UNE UW OO OOVNO UNSW 
RIPPIN IPONIPIPIPIPIPIPIPIPININIPIPIPIPINNIPIPINII II dd dt td tt td tt 


' 
' 
i 
i 
{ INPUTS 
' 
i] 
' 
i 


D2 0 Ge Go GB Ge Go 69.09 C 02 00 09 G9 00 00 09 00. 00 G0 GD OD G9 GD OD G9 CO CD ODE 


¢3 SIGARG = The signal argument vector. 
8 “§ MECHARG = The mechanism argument vector. 
H ve ENBLARG = The enable argument vector (not used here). 
: “3 OUTPUTS 
48 For the SS$_ACCVIO error, the DBGS_ACCADDCOM error is signalled instead. 
ore) For all other errors, this routine just resignals. 
Hi 
87 g BEGIN 
vr 
z é SIGARG: REF VECTOREC,LONG); ! Pointer to the signal argument vector 
73 CAL 
er 8 PATHDESCR ! Pointer to pathname descriptor 
o7 9 PATHSTRING; ! Pointer to pathname string for symbol 


ANS 


: If this is anything other than an access violation, just resignal it. 
IF .SIGARGC1) NEQ SS$_ACCVIO THEN RETURN SS$_RESIGNAL; 
! It is an access violation. Determine the name of the last symbol passed 
! to DBGSSTA_SETCONTEXT to set up the register context and use that in the 
error message we substitute. 
if ;,PBGSREG_SYMID EQL 0 

PATHSTRING = UPLIT BYTE(ZASCIC ‘object’) 


BEGIN 
DBCSSTA SYMPATHNAME ( .D 
DOGSNPATHDESC_10_C5(.P 


essence SYMID, PATHD 


ESCR); 
THDESCR, PATHSTRING) 


Be Be Se Se Se Ge Se Se Se Ge Se Ge Se Se Ge Ge Fe Se Ge Be Ge Fe Se Se Ge Se Fe Se Ge Se Se Se Ge Se Se Ge Se Se Se Se Se Se Ge Se Se Se Se Se Ge Se Se Ge Ge SHS Sees 


Go 0000 Co Gp Gp Gd Gd Cd Gd 0d CD OD GD CD CD 
a i S| 
a 
wns 


: Signal the substitute error. We never get control back from the signal. 


Page 
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RSTACCESS -Sep-1 68:17 AX=11 Bliss-32 v4.0-7%4 P 
¥ou-008 1b-sen-1984 Moe, Pomeds the Sastactess oss.1 ead 5) 
; 8785 7 SIGNAL (DBGS_ACCADDCOM, 1, .PATHSTRING); 
; He i ; RETURN ee “i a 
: 87 7 END; 
.PSECT DBGSPLIT,NOWRT, SHR, PIC.O 
74 63 65 6A 62 6F 06 00937 P.AFS: ASCII <6>\object\ : 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 | 
0000 00000 VALSPEC_ERROR_HANDLER: 
",¥ORD™ Save nothing ; 8813 | 
5 08 C2 2 SUBL S : | 
04 AC D 0 MOVL SIGARG, R : 8850 
0c 4 A D4 09 MPL 4(RO), #1 : | 
YY BEQ : 
50 0918 BF 3¢ 0 OF Oy We #2328, RO 3 
50 00000000' FF 00 15 18: MOVL DBGSREG_SYMID, RO ; 8857 
A 1 1¢ BNE : 
04 AE 00000000° EF 3 H ROVAB - PATHSTRING ; 8859 
4001 er BB 00 2$: PUSHR gener t 8863) 
E223 CF 2 §B ¢ CALLS “DaGSSTA, SYMPATHNAME : 
04 AE 9F 00031 PUSHAB eet ue ING ~ + 8864 
4 AE DD 000 PUSHL PATH NDESER : 
000000006 00 02 FB 00037 CALLS 4 DBGSNPATHDESC, TO_C¢S ; 
04 AE OD 3$ PUSHL PATHSTRING : 8870 
DD 0004 PUSHL : | 
00028¢98 8F ODD 43 PUSHL #167064 F 
000000006 00 FB CALLS a3, L1B$S1GNAL : 
b4 30 CLAL oR : 8871 
005 RET : 8873 


3; Routine Size: 83 bytes, Routine Base: DBGSCODE + 3A3B 
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-$ep-1984 02:48:17 AX-11 Bliss-3 
WEseent9R OB:4BNZ yausty eh igecs 
ROUTINE VALSPEC_SCOPE_ERROR: NOVALUE = 
i FUNCTION 
: This routine is gelled during DST Value Spec evaluation if a register 
; is referenced which is not available in the current context as set by 
; routine 0BG SUA Te CONTERT Use of such a register usually means that 
; a variable is being referenced whose scope is not currently active i.e. 
: there "s no CALL frame the VAX stack for the routine in which the 
; symbol is declared. This routine just sets up and signals the ‘Symbol 
: not in active scope’’ error message. 
i INPUTS 
: DBGSREG_SYMID is an implicit input. It gives the SYMID of the symbol 
: last used to establish context. There are no input parameters. 
: 


OUTPUTS 
NON 


BEGIN 


PATHNAME , ! Pointer to symbol's pathname descriptor 
PATHSTRING; ! Pointer to symbol’s pathname string 


! Use the SYMID passed to DBGSSTA_SETCONTEXT Last to format the symbol name 
! for the error message. If no such name exists, use the null string. 


1 
if .DBGSREG_SYMID EQL 0 
THEN 

PATHSTRING = UPLIT(O) 


BEGIN 
DBGSSTA_SYMPATHNAME (.DBGSREG_SYMID, PATHNAME); 
DEGSNPATHDESC_TO_CS(.PATHNARE. PATHSTRING); 


: Signal the error--we do not return from the signal. 
SIGNAL (DBG$_SYMNOTACT, 1, .PATHSTRING); 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, 


00000000 tits P.AFT: “PONE ; 


-PSECT DBGSCODE.NOWRT, SHR, 


PIC,0 


sls 


m 6 
1er$ep=t9be $3:8:26 — Ebkeus. SacSastactess 8891 


0000 00000 re eee 


08 ¢ stare aa’espoen ine 
Hi 00000000° f p movL DBGSREG_SYMID, RO 
04 AE 00000000° ' ? MOVAB P.AFT, PATHSTRING 
4001 8F 688 00018 1$: PUSHR #*M<RO se 
E1EO CF : FB 0001 CALLS #2, DBGSSTA_SYMPATHNAME 
04 AE OF PUSHAB PATHSTRING 
4 AE DD 4 PUSH 
000000006 00 02 FB CALLS #2, DBGSNPATHDESC_TO_CS 
04 AF DD 28: PUSHL PATHSTRING 
DD PUSHL 
00028¢88 i DD PUSHL #167048 
000000006 00 3 FB 39 CALLS #3, LIBSSIGNAL 


; Routine Size: 65 bytes, Routine Base: DBGSCODE + 3ABE 


<z 
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16-Sep-1984 02:48:17 Ax-11 Bliss-32 V4.0-74 Page 277 
12-328713 4 eet fey ares. euctasTactess 035.1 . (813 

; 7 9 9 1 ROUTINE VALSPEC_ROUT_CALL( VALBUFFER, 

: 9 1 Rov! ADD 

; 9 : 1 OCTAGORD_ FLAG, 

3 0 \) 1 FP_FLAG 

3 8841 924 1 STACK_TOP 

; BBA¢ 3 5 i STACK-LENGTH) : NOVALUE = 

3 8844 9 5 1 ! FUNCTION 

3; 8845 9 8 1! This routine is called to handle calls on compiler-supplied routines 

3 $ 9 1! in the user's address-space eur'ing Value — evaluation. Calls to 

3; 884 930 1! compiler-supplied Value Spec routines can be specified in Materializa- 
3 ace 931 1! tion Specs in veiw? Specs, both directly ang via the DST Stack Machine. 
; th , § : The compiler-supplied routine is called as follows: 

3; 8851 934 1! - The desired symbol'’s Frame Pointer value is passed to 

3 £36 4 5 : the routine in register R1. 

3; 8854 9 7% - If OCTAWORD_FLAG is FALSE, a pointer to the vector of 

3; 8855 938 1! register values for the symbol's frame (as represented 

3 28 8939 1! by DBGSREG_VALUES) is passed as a parameter in the argu- 

3; 885 8940 1! ment vector, and the routine returns the symbol's value 

; rte o3e) : } in register RO. 

; 8860 8945 1! - If OCTAWORD_FLAG is TRUE, a pointer to a 4-longword result 

3; 8861 944 1! buffer and a pointer to the vector of register values in 

; ra] 945 1! the symbol's frame are passed as parameters in the argument 
3; 886 soe8 1! vector. The routine’s result is returned directly to the 

3 Sore Sees ; result buffer in this case, and not through register RO. 

3 ¥¢] 949 1! = When STACK_TOP and STACK_LENGTH are passed eney are passed 

3; 886 950 1! as the 2nd and 3rd parameters if the OCTAWORD_FLAG is false 
3 ire 49) ' and the 3rd and 4th parameters if the OCTAWORD_FLAG is true. 
/; 8870 Hea 1! If the Frame Pointer (FP) is not available in the current context (as 
3; 8871 8954 1! set up by DBGSSTA_SETCONTEXT), the ‘‘symbol not in active scope’ error 
: 8955 1! is signa led. Otherwise the cone! Ler-suppl ted routine is called as 

: 328 7 ¢ described above and its value returned. The routine that called 

; eH ! VALSPEC_ROUT_CALL can then use the value as it sees fit. 

3 959 1°! INPUTS 

: 960 1! VALBUFFER = The address of a 1-longword or 4-longword buffer which is 
: 961 1! to receive the value returned by the called routine. The 

; 4) 7! size of the buffer depends on the value of OCTAWORD_FLAG. 

: 387 : : The buffer should be zeroed out by the caller. 

3 965 ! : ROUT_ADDR = The address of the routine to be called to get the value. 
3 967 1! OCTAWORD_FLAG - A flag value set to TRUE if the called routine is 

3 968 1! expected t9 return a smtonquord value to VALBUFFER. If 

3 oer 1: this flag is FALSE, a sing 2 songuore S$ expected to be 

; 970 1 | returned to VALBUFFER. If OCTAWORD_FLAG is TRUE, the called 
3 971 1! routine is expected to return its value to the address given 
: 376 , } by the yy parameter; otherwise, the value is returned in 
: 44 : register RO. 

; Sere : FP_FLAG = If TRUE, indicates that FP is to be passed in to thunk. 


<mD 


if .FP_FLAG 
IF .DBGSREG_VECTORC13) EQL 0 THEN VALSPEC_SCOPE_ERROR(); 


! Call the compiler-provided routine to compute the desired value. If the 
' octaword flag is set, we pass the buffer to receive the value (up to four 
! Longwords) as the first parameter. Otherwise we get the yalue from RO. 

: The frame pointer value is always passed in in register R1. 

I 


RREE 


F ACTUALCOUNT() EQL 4 
THEN 


; | 
RSTACCESS 18-sep=1 4 02:48:17 AX-11 Bliss-32 V4.0-74 Page 278 } 
¥O4-008 12-00-1382 et fee DEBUG. SRC SSTAactegs 035s . (51) vor 
; 8894 977 1! STACK_TOP = Optional parameter. Pointer to the top of the stack 

: 95 44 ! in the stack machine. Passed by value. 

; 6] 9 » 1/ STACK_LENGTH = Optional parameter. The number of bytes on the stack 
: 243 . : } in the stack machine. Passed by value. 

; 30h 3 i atid Te Th l t d by th Lled il lied 

3 - The value returne e called compiler-s e 

$ ane 985 1! routine is returned to the buffer pointed to 9g 

; 890 . : VALBUFFER. 

3 3 4 4 No routine value is returned. 

; 890 990 1. 

3 2404 44 BEGIN 

; 8910 398 VILTIN 

; 8911 8994 ACTUALCOUNT 

; B9i¢ 8995 AC TUALPARAME TER; 

; 891 43) 

3; 8914 899 Pp 

; aa 3444 VALBUFFER: REF VECTORC,LONG); ! Pointer to buffer to receive value 
; 8917 9000 NABLE 

: 2018 449 VALSPEC_ROUT_CALL_HANDLER; ! Set up a handler for this routine 
: 8920 900 

: B90) ohne Define the Linkage by which we call the compiler-supplied routine. 

: 89 5 LINKAGE 

: +4 ¢ 9007 ROUT_CALL_LINKAGE = CALL(REGISTER = 1, STANDARD); 

: 89 6 BIND ROUTINE 

3; 89 1 ROUTINE _TO_CALL = (.ROUT_ADDR): ROUT_CALL_LINKAGE; 

; 8 3 1 ‘e+ 

3 83 : : 4 parameters not allowed 

: 89 g 1 if ACTUALCOUNT() EQL 5 

3; 89 1 THEN 

3 > ; ' $DBG_ERROR(*RSTACCESS\VALSPEC_ROUT_CALL"); 

: 89 1 

: 4 : Make sure there is a current register set to take FP from, 


BO OO NO NEW 0 OCONOU EWN OOM 


SSSSESSSSSSSSSSSSSSSSSSSSS S 


PAAAPOPOPIMONONNOPENOTY 


D090 00 00 0p Gp 09 GD On CD Gd 0d Gn 09 OD On OD CD CD CD: 
FERRE GSSS 


‘esti 03:48:17 


Ax-11 BL Liss s-32 V4.0- i398. Page 279 
DEBUG. SRC ASTACCE $S.832;1 (51) 


; 33 39 : IF .OCTAWORD_FLAG 
: y § $0 § me ROUTINE_TO_CALL(.DBGSREG_VALUES(C13], .VALBUFFER, DBGSREG_VALUES(0)) 
; ; 5 $9 $ — VALBUFFERCO] = ROUTINE_TO_CALL(.DBGSREG_VALUES(13], DBGSREG_VALUES[0]) 
; 337 3040 IF OCTAWORD. FLAG 
; 14954 anes ROUTINE_TO_CALL(.DBGSREG_VALUESC13], .VALBUFFER, DBGSREG_VALUESCO), .STACK_TOP, .STACK_LENGTH) 
; o30) pee VALBUFFERCO] = ROUTINE_TO_CALL(.DBGSREG_VALUES(13], DBGSREG_VALUESCO], .STACK_TOP, .STACK_LENGTH 
; Hs: 9 46 RETURN; 
3 8964 904 
; 8965 9048 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 

53 4¢ 41 56 SC 53 53 45 43 43 41 56 3 32 18 00944 P.AFU: .ASCII <27>\RSTACCESS\<92>\VALSPEC_ROUT_CALL\ : 

4c 4C 41 43 SF 54 55 4F 52 SF 43 45 50 00953 : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
000C 00000 VALSPEC hate 


OR R2,R3 ; 8920 
BB otto te OF BE 00009 ROVAL ete, ne, S 9991, 
05 6¢ 91 0000 CMPB tap) > 9015) 
15 12 0001 BNEQ : 
00000000' EF 9F 90013 PUSHAB P.AFU : 9017) 
1 DD 00019 PUSHL # : 
00028362 8F DD 0001B PUSHL #164706 : | 
000000006 00 03 FB 0021 CALLS #3, LIBSSIGNAL : 
0c 10 aC E 00 8 1$ BLBC FLAG, 2$ : 9022 
000000006 06 03 00 s Ist BGSREG. VECTOR+52 > 9024 | 
87 AF 09 FB 00 CALLS VALSPEC_SCOPE_ERROR : 
52 34 =«SA p 0038 2%: MOVL bBésnes VALOES#52, R2 : 3 
04 6c 91 0003C CMPB s«C AP), #& : 9032. 
1¢ 1 F BNEQ : 
0D 0c AC E 41 BLBC 830 s«éO sauna Bou 3$ : 9034 
53 DD 43 PUSHL > 9036 
046 A Dp 4 PUSHL VALBUFFER : 
51 52 D 4A MOVL g. ; 
08 BC 0 FB 4p CALLS #2, @ROUT_ADDR ; 
53 Dp é 38: PUSHL R : 9038 
51 n MOVL R , RI ; 
08 BC 4 Fe 7 CALLS * @ROUT_ADDR ; 
5 B BRB Ao : 
11 o¢ AC 59 D 4$: BLBC OCTAWORD FLAG > 9042 
7E 4 AC D 00061 MOVO  STACK_TOP, AG en3® ; 
53 pd 00065 PUSHL R3 : 


. 7 
vou-600 > 1eo$ep-t9be 13:18:26 — EdeeuG.SacSAstActess 85951 Pane $i 


06 =A 4} 7 PUSHL VALBUFFER : 
51 3 D A MOVL Re. R1 : 
08 BC 6 CALLS #4, @ROUT_ADDR : 
7E i if 72 5$: nova $ ACK_TOP, =(SP) 3 9044 
08 BC FB 78 CALLS #3, @ROUT ADDR : 
BC 7F 6$: MOVL RO, @VALBOFFER ; 
4 3 RET : 9048 
00 7$: «WORD Save nothing 3; 8991 
ze D4 CLRL = = (SP) : 
5 bo PUSHL $P : 
7E 04 at D A MOVO 4(AP), (SP) : 
0000v CF 0 FB 0 CALLS #3, VALSPEC_ROUT_CALL_HANDLER : 


; Routine Size: 148 bytes, Routine Base: DBGSCODE + 3ACF 


stein QBstBs]7  Yayett BL tse=82 v4.00742 Page 8) 
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; 8967 6 ! ROUTINE VALSPEC_ROUT_CALL_HANDLER(SIGARG, MECHARG, ENBLARG) = : 
; 36 1 i FUNCTION ; 
; 89 § 1! This routine is the error handler for the VALSPEC_ROUT Cath F vous aes 3 
; 897 1! handles abnormal eagere pone which occur during thé evaluation : 
; 897 ie a ee Variable, ie. Pointer to the base variable has not Ss set : 
; 897 .- 2% 7 the ALLOCATE i. PLI gorere the program execution. However we H 
3 4 § : } do allow symbol is not active signal to go through this routine. ‘ 
: 897 38 1 i INPUTS ; 
; 897 +94 ; SIGARG = The signal argument vector. : 
: 897 306) MECHARG = The mechanism argument vector. ; 
; 4 1 3068 : H ENBLARG - The enable argument vector (not used here). : 
; 83 4 3088 1 § oUTPUTS ; 
3; 89 46] 1! For the DBGS_SYMNOTACT error, this routine just resignal. 3 
3 + 906 : H For all other errors, this routine signals D8G$_BASV RNOTSET. : 
: 898 3088 1 : 
8989 3071 ait 
: 8 9078 P F 
3 344 th SIGARG: REF VECTORC,LONG); ! Pointer to the signal argument vector : 
: 899 9075 ; 
3 ba 3078 IF “$1 GaRS 1} EQL DBGS$_SYANOTACT OR 3 
3; 8995 907 ~SIGARGL1) EQL SS$ _ONWIND $ 
; zoP8 9078 3 
3 bad ha RETURN SS$_RESIGNAL; ; 
: 8999 9081 SIGNAL (DBG$_BASVARNOTSET); : 
; 9000 90 ; RETURN 0; 3 
3; 9001 908 3 
; 9002 9084 1 END; : 
0000 00000 VALSPEC_ROUT_CALL_HANDLER: F 
-WORB Save anothing : 9049 3 
30 0% ab Dt MOVL SIGARG, RO 3; 9076 3 
00028¢88 F 4 mt co Sa ‘ G+ 87048 : ; 
00000920 8F 04 1 CMPL = &(RO), #2336 : 9077 : 
0¢ 2 1 BNEQ 2$ ; 3 
50 0918 C a 18: poyeuL #2328, RO : 9079 : 
00028108 DD 0 28: PUSHL #164104 > 9081 : 
000000006 00 ‘ FB CALLS #1, LIBSSIGNAL § g 

0 D CLAL RO 3 e087 

4 a RET 3 


3; Routine Size: 48 bytes, Routine Base: DBGSCODE + 3863 


‘ 7 
ngage zm VecSeort9Ge 93:48:32 YASGIY SLigectz yes on7es 


-EXTRN LIBSSIGNAL, SYSSUNWIND 


; PSECT SUMMARY 

: Name Bytes Attributes 

: DBGSOWN 92 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC ALIGN(2) 

3; DBGSPLIT g30 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 

3; DBGSCODE 15251 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC, ALIGN(O) 

e 

3 Library Statistics 

Aan ie Bet an eee EE ue. “= Symbols -<------ Pages Processing 

3 File Total Loaded Percent Mapped Time 

; 55$DUA28:(SYSLIBILIB.L32;1 18619 20 : 1009 00:01.9 

> $255 : (DEBUG. 41STRUCDEF 32:1 3 3 00:09.1 

hye | SSSDUAGB: : EDEBUG.OB 3 154 224 14 97 00:02.0 

; _$255 : LDEBUG.OBJ DE TRECRDS. 132; 1 

; 418 233 55 31 0:00. 

3 “B53 2SDUAGE : (DEBUG .0B J JDBGNSG.L 32; 1 386 14 3 $$ 0:00. 

; ~$255$DUA28: (DEBUG.0B/ JDBGGEN.L532;1 150 1 0 1 0:00. 

: COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS$:RSTACCESS/OBJ=OBJ$:RSTACCESS MSRC$:RSTACCESS/UPDATE=(ENHS:RSTACCESS) 
Size: 15251 § + 24692 data bytes 

i Rumetine: Ou: 

. Ties in: 999° 


n: 
; yonence/<Py Mins 1§128 
; y Used: 876 pages 
; pees ation Complete 
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